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ABSTRACT 


SICOSAS  is  a  symbolic  assembly  program  designed  to  operate  on  the  IBM  7090 
for  the  purpose  of  merging  many  of  the  desirable  features  of  two  of  CDC's  programming 
systems,  SICOM  and  OSAS-A.  into  a  single  programming  system  in  order  to  make  the 
CDC  160-A  computer  a  more  versatile  tool  for  many  applications.  This  memo  is  not 
intended  as  a  self-sufficient  primer.  It  is  aimed  at  those  who  have  had  some  back¬ 
ground  in  the  IBM  7090  computer  and  its  associated  SOS  programming  system  as  well 
as  in  the  CDC  160-A  computer  with  its  OSAS-A  and  SICOM  programming  systems. 

Input  cards  are  punched  in  the  familiar  SOS  format.  Output  is  an  SOS -like  program 
listing  plus  a  binary  copy  of  the  assembled  program  on  magnetic  tape  which  is  readily 
loaded  and  executed  on  the  160-A. 


SICOSAS,  AN  IBM  7090  COMPUTER  ASSEMBLY  PROGRAM 
FOR  THE  CDC  160-A  COMPUTER 


INTRODUCTION 

The  present  Lincoln  Laboratory  CDC  160-A  computer  configuration  offers  the 
user  a  relatively  fast  (6.4/li  cycle  time;  12.  Sjj,  add  time)  machine  with  a  16K, 

12 -bit-word  magnetic  core  memory.  Buffering  is  available  as  well  as  indirect  ad¬ 
dressing  and  program  interrupt.  Input -output  media  include  paper  tape,  magnetic 
tape  (IBM  compatible),  and  a  typewriter.  Additionally,  real  time  data  may  be  pro¬ 
cessed  using  existing  input-output  facilities.  A  scope  is  also  connected  for  display 
purposes. 

To  those  who  are  using  or  have  used  some  of  the  Laboratory's  larger  machines, 
there  may  be  some  disappointing  aspect  to  the  160-A  facility  among  the  following. 

a.  There  are  no  machine-language  multiply  or  divide  instructions  as 
such.  These  functions  must  be  performed  in  other  ways, 

b.  There  are  no  machine  index  registers. 

c.  There  is  no  floating  point  hardware. 

d.  The  basic  machine-language  compiler  OSAS-A*,  while  symbolic  and 
mnemonic,  is  quite  separate  from  the  interpretive  programming 
system  with  which  it  may  interplay. 

e.  One  of  the  two  interpretive  programming  systems,  SICOM^,  is 
decimal  but  non-mnemonic,  non-symbolic,  requires  paper  tape 
input  for  compilation,  and  affords  no  program  listing. 

f.  The  versions  of  FORTRAN  now  available  for  the  160-A  do  not  provide 
machine -language  facility.  [New  versions  of  FORTRAN  for  the  160-A 
are  under  development^,  but  even  these  new  versions  have  certain 
inadequacies.  The  availability  of  an  adequate  version  of  FORTRAN 
(e.  g. ,  similar  to  7090  FORTRAN)  might  well  have  obviated  the 
current  immediate  need  for  SICOSAS.  ] 


*Control  Data  Corporation  Publication  No.  507,  "OSAS-A,  The  160-A  Assembly 
System.  " 

t  Scientific  Computers,  Inc. ,  Minneapolis,  Minnesota,  "SICOM,  Scientific  and 
Commercial  Programming  System  for  the  Control  Data  160-A  Computer",  June  1962. 

t  Control  Data  Corporation  Publication  No.  505,  "160-A  FORTRAN/General  Information 
Manual.  " 
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SICOM  has  been  described  in  the  CDC  literature*  as  having  the  following 
characteristics. 

"SICOM  for  the  Control  Data  160-A  computer  is  a  general-purpose  interpretive 
system  utilizing  floating  point  arithmetic.  It  effectively  converts  the  IbO-A  from  a 
binary,  fixed-point  machine  with  a  12 -bit  word  length,  into  a  decimal,  floating-point 
machine  with  10-decimal  digit,  plus  exponent,  word  length.  SICOM  provides  full 
arithmetic,  indexing,  and  logical  capabilities. . .  as  well  as  additional  features  which 
provide  functions  and  SICOM  or  machine -language  subroutines.  " 

Certainly  the  prospect  of  going  from  a  machine  with  no  multiply/divide  capa¬ 
bility  and  having  no  index  registers  to  the  same  machine  possessing  full  arithmetic, 
indexing,  logical  and  machine-language-dropout-and-return  capabilities  even  at  the 
reduced  speed  of  an  interpretive  programming  scheme  is  an  enjoyable  one  for  most 
applications. 

It  has  been  the  primary  intent  then  of  the  SICOSAS  system  to  retain  all  of  the 
desirable  operational  characteristics  of  SICOM  while  making  programming  for  SICOM 
less  of  a  chore.  This  has  been  done  in  part  by  by-passing  the  SICOM  compiler 
completely  in  assembling  the  SICOM  part  of  a  SICOSAS  program.  A  secondary  feature 
of  the  SICOSAS  system  has  been  the  elimination  of  a  separate  compilation  of  the  machine - 
language  portion  of  the  SICOM  program  which  would  normally  be  done  by  OSAS-A  since 
this  compilation  is  also  done  by  SICOSAS  at  the  same  time  as  the  compilation  of  the 
main  SICOM  program, 

SICOSAS  then  is  really  a  dual  assembler,  each  mnemonic  and  symbolic,  each 
capable  of  independent  operation.  Each  assembler  and  its  ground  rules  will  be  con¬ 
sidered  separately. 

GENERAL  DESCRIFTION 

Although  the  two  assemblers  in  SICOSAS,  SICAP  (SICOM  Assembly  Program) 
and  MLAP  (Machine  Language  Assembly  Program)  may  each  be  invoked  to  the  exclusion 
of  the  other,  the  SICOSAS  programming  system  was  designed  primarily  for  those  who 
require  interplay  between  the  SICOM  interpretive  system  with  its  large  decimal  capaci¬ 
ty  (10  decimal  digits)  and  machine -language,  hand-coded  routines  which  perform  special 
functions  that  cannot  be  accomplished  in  the  SICOM  language. 


*Control  Data  Corporation  Publication  No.  502,  "Programming  Systems.  " 
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Before  SICOSAS,  a  person  with  such  a  problem  would  prepare  the  SICOM  code 
by  writing  it  in  an  absolute  numeric  format  for  punching  by  the  flexowriter.  His  only 
listing  of  the  program  would  be  the  flexowriter  printout  of  the  absolute  code  which 
would  simply  be  a  probably  neater  copy  of  the  original  manuscript.  No  commentary 
of  any  kind  would  be  retained  beyond  the  original  manuscript.  Thus,  a  portion  of  the 
document  from  which  he  would  work  would  appear  something  as  follows: 

1221003 

0251004 

0240720 

036Y000 

4 

Next  he  would  prepare  his  machine -language  subroutines,  coding  these  sym¬ 
bolically  and  with  machine  code  mnemonics  in  the  OSAS-A  system.  His  origins  for 
these  subroutines  would  be  equated  to  the  effective  machine  location  transferred  to  by 
the  SICOM  "transfer  to  machine  language"  instructions.  Any  reference  to  the  main 
SICOM  program  would  be  made  in  absolute  or  quasi  absolute  in  these  subroutines 
since  two  separate  unrelated  compilers  would  prepare  these  codes  for  machine  loading. 
Finally,  the  subroutines  would  be  compiled  by  OSAS-A  (via  paper  tape  or  card  images 
on  magnetic  tape)  and  a  final  paper  tape  containing  these  subroutines  would  evolve  for 
machine  loading. 

Having  loaded  the  subroutines,  the  next  step  would  be  to  load  the  SICOM 
compiler/interpreter  and  proceed  to  compile  the  main  SICOM  program  from  a  flexo 
tape  in  the  format  described  above  over  the  previously-entered,  hand-coded  subroutines. 
If  the  SICOM  program  needed  library  mathematical  subroutines,  these  would  finally  be 
loaded  over  everything  else  in  the  manner  prescribed  in  the  SICOM  manual. 

To  accomplish  the  same  result  in  the  SICOSAS  system,  one  codes  the  entire 
problem  together  as  a  single  program.  Programming  is  virtually  entirely  symbolic. 
Machine -language  mnemonics  have  been  carried  over  entirely  from  OSAS-A  for  con¬ 
structing  hand-coded  subroutines,  MLAP  additionally  can  be  made  either  a  decimal 
compiler  or  octal  compiler  and  may  be  switched  back  and  forth  from  card  to  card  if 
need  be.  For  SICOM  commands,  since  no  mnemonics  existed,  a  full  set  has  been 
constructed.  All  of  the  basic  SICOM  mathematical  library  subroutines  are  now  an 
integral  part  of  SICOSAS  so  that  any  or  all  may  be  incorporated  into  the  final  program 
automatically  at  compile  time  thereby  obviating  their  separate  loading  at  execute  time. 

In  summary,  the  procedure  to  be  followed  to  arrive  at  a  SICOSAS  program 
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operating  on  the  160- A  is  as  follows; 

a.  Code  the  entire  problem  on  card-room-provided  coding  forms. 

b.  Use  the  card  room  facility  for  punching,  verifying,  etc. 

c.  Compile  the  program  on  the  7090  either  from  tape  (prestored)  or  from 
cards. 

d.  Print  out  the  BCD  listing  tape  and  save  the  binary  tape  (map  of  160-A 
bank  1  core  storage). 

e.  At  the  160-A  call  in  assembled  program  for  execution  from  magnetic 
tape  with  special  SICOSAS  loader. 

This  memo  does  not  pretend  to  contain  all  the  information  required  for  a  person 
to  write  a  SICOSAS  program.  It  is  intended  primarily  for  those  who  have  at  least  a 
nodding  acquaintance  with  the  referenced  literature,  rather  as  a  supplement  describing 
a  different  approach  to  the  solution  of  a  certain  class  of  problems.  A  limited  number 
of  SICOM  Manuals  are  available  for  reference  for  those  who  wish  to  investigate  this 
approach  further.  A  listing  of  the  SICOSAS  program  is  included  as  Appendix  F. 


SICOM  ^SEMBLY  PROGRAM  (SICAP) 

The  normal  numeric  format  required  by  the  bypassed  SICOM  compiler  is  of  the 
following  seven-digit  form: 


KOPADDR(  1) 


where  K  =  the  index  registt '  0  K  <  9, 
and  OP  =  the  Operation  code, 
and  ADDR  =  the  SICOM  address. 

Two  departures  from  this  format  occur  for  those  commands  in  which  DR  of  (1) 
above  is  the  operation  code  and  for  those  in  which  K  of  (1)  above  is  the  operation  code. 

The  basic  SICAP  symbolic  card  layout  is  as  follows: 


Cols.  1-6  Location  Field  containing  all  blanks  or  an  alpha¬ 

numeric  symbol  to  be  associated  with  this  card. 
Col.  1  must  be  non-blank  if  a  symbol  is  used. 

At  least  one  character  in  the  symbol  must  be 
non -numeric,  and  none  may  be  +  or  —  . 

Col.  7  Blank 


Cols.  8-15 


Cols.  16  + 


Operation  Field  containing  a  mnemonic  operation 
code  beginning  in  Col.  8. 

Variable  Field  starting  in  Col.  16  is  composed 


4 


of  the  address  field  and  the  tag  (or  index)  field. 
The  address  field  is  separated  from  the  tag 
field  by  a  comma  (  >  ).  The  address  field  may 
or  may  not  include  an  additive  subfield.  If  it 
does  contain  this  subfield,  it  is  separated  from 
the  pure  address  by  a  +  or  —  sign.  A  blank  (b) 
in  variable  field  is  a  terminating  character. 
Thus,  typical  cards  appear. 


1  7 

8 

1  6 

XRAY 

C  L  A 

A  B  L  E  -  1  0  ,  7 

SYMBOL 

M  P  Y 

P  ,  2 

P 

S  T  O 

B  OX  +  2 

D  V  P 

P  I 

SPLIT 

I  D  V  P  C 

2  3  4  5 

Thus,  for  card  XRAY  above,  if  the  symbol  ABLE  had  previously  been  equated  to 
SICAP  location  1000,  say,  SICAP  would  consider  K  =  7,  OP  =  22  and  ADDR  =  990.  Hence 
the  equivalent  numeric  code  7220990  would  be  decoded  and  inserted  into  the  machine 
cells  assigned  to  location  XRAY. 

Cols.  hH-1  to  72  Commentary.  Any  combination  of  Hollerith 

characters. 

Appendix  A  lists  all  of  the  SICAP  mnemonic  operation  codes  along  with  a  de¬ 
scription  of  each.  Appendix  B  is  an  alphabetic  listing  of  all  mnemonics  recognized  by 
SICAP  including  all  of  the  entries  in  Appendix  A  plus  the  SICAP  pseudo-operation  codes. 

Appendix  D  shows  a  SICOSAS  program  in  which  all  coding  is  in  the  SICAP 
language.  This  program  is  the  symbolic,  mnemonic,  and  documented  equivalent  of 
the  SICOM  progrjun  appearing  on  page  42  of  the  SICOM  Manual.  The  first  line  of 
the  listing  contains  the  author  identification  field  0.  D.  Drinan  Nov.  28,  1962. ).  The 
second  line  identifies  the  various  columns  in  the  listing.  The  four  columns  headed  by 
MLOC  show  the  machine-language  (octal)  location  of  the  SICAP  information.  SILOC, 
of  course,  is  the  SICAP  location  (decimal)  corresponding  to  MLOC.  The  K,  OP,  ADDR 
columns  depict  the  decoded  seven-digit  SICOM  instruction.  At  the  far  right  of  the 
listing  appears  simply  a  tabulation  of  the  cards  in  the  symbolic  deck.  The  remainder 
of  the  columns  contains  an  image  (Cols.  1-72)  of  each  input  card. 

USE  OF  $  IN  SICAP 

In  the  original  SICOM  the  notation  YOOO  was  used  to  reference  the  SICOM  ac¬ 
cumulator.  In  SICAP  this  symbol  has  been  replaced  by  $  (dollar  sign),  thus  the  SICAP 


5 


instruction  at  location  ABLE 

ABLE  OFLTB  $ 

would  cause  the  contents  of  the  accumulator  to  be  output  (in  floating  point  followed  by 
a  tab)  on  the  previously -selected  device. 

SICAP  LIBRARY  SUBROUTINES 

The  original  SICOM  system  is  composed  in  general  of  an  interpreter/compiler 
program  plus  a  library  of  relocatable  arithmetic  subroutines.  Normally  the  subroutines 
required  by  the  object  program  are  manually  loaded  from  paper  tape  into  the  absolute 
locations  to  which  the  object  program  will  transfer.  Control  is  then  manually  trans¬ 
ferred  to  the  SICOM  dynamic  start  point  in  the  main  program  for  execution. 

In  SICOSAS  a  required  subroutine  is  automatically  incorporated  into  the  object 
program  upon  the  encounter  of  one  of  the  five  appropriate  SUBROUTINE  cards  to  be 
described  here.  Subroutine  cards  have  the  following  format: 

Location  Field  A  location  symbol  or  all  blank 
Operation  Field  Subroutine  Designator 
Variable  Field  None 

The  subroutine  designator  is  one  of  the  following  five  specifying  the  square 
root,  logarithmic,  exponential,  sin-cos,  and  arc  tan  subroutines,  respectively. 

SQR 

LOG 

EXP 

SIN 

ATAN 

The  effect  of  meeting  one  of  these  cards  is  to  cause  SICAP  to  insert  otneodf  these 
five  basic  subroutines  into  the  object  program  at  the  place  in  the  program  where  the 
subroutine  designator  card  was  met.  If  a  symbol  is  present  in  the  location  field  of 
the  SUBROUTINE  card,  it  will  be  entered  into  the  symbol  table  and  equated  to  the 
value  of  the  location  covinter  at  the  time  of  meeting.  In  any  case,  SICAP  inserts  a 
symbol  of  its  own  at  this  location  identical  to  the  symbol  of  the  subroutine  designator; 
i.  e. ,  SQR,  LOG,  EXP,  SIN  or  ATAN.  Thus,  to  enter  a  given  subroutine,  one  may 
transfer  (TSR)  either  to  the  program  symbol  used  to  identify  the  start  of  the  subroutine 
or  in  the  absence  of  such  a  symbol  to  the  subroutine  designator  itself. 

The  reader's  attention  is  invited  to  the  table  on  page  55  of  the  SICOM  Manual  for 
information  about  arguments,  entry  points,  etc. ,  pertaining  to  these  subroutines. 
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SICAP  INFORMATION  LAYOUT 

The  reader  is  directed  to  page  83  of  the  SICOM  Manual  for  information  regarding 
the  location  and  format  of  the  SICOM  pseudo  accumulator. 

The  machine  layout  for  SICAP  commands  and  numeric  data  is  given  below  since 
a)  it  does  not  appear  in  the  SICOM  Manual,  and  b)  it  is  "must"  information  for  those 
SICOSAS  programs  which  employ  SICAP  for  arithmetic  computations  and  MLAP  for 
logical  manipulations  of  the  results. 

Suppose  the  following  two  cards  appear  in  a  SICAP  program; 

ORG  1000 

DATA  DEC  9876.543210 

The  SICAP  digit  numbering  convention  is  Dj^qD^.  . . .  D^  where  D^q  of  DATA  is  9 
and  Dj^  is  0.  Each  D^  occupies  4  bits  weighted  8,  4,  2  and  1  from  left  to  right.  A 
SICAP  datum  is  stored  in  two  SICAP  locations  which  take  up  four  machine  locations. 

As  a  result  of  the  above  cards,  this  numeric  datum  will  be  assembled  into  SICAP 
locations  DATA  and  DATA+1  (these,  of  course,  are  absolute  SICAP  locations  1000 
and  1001  which  occupy  machine  locations  3720g  through  3723g)  in  the  following 
format : 


DATA  (3720g) 

11 

D3 

7  3 

1  D2 

0  Bit  Numbers 
D1  . 

D6 

.  D5  , 

D4  ^ 

+1  (3722g) 

, 

D9 

D7  , 

|S| 

EXPONENT.  , 

DIO  , 

The  octal  representation  of  this  number  in  cells  3720  through  3723  appears 

1020  =  0302^1 

2503  =  D6D5D4 
4166  =  D^DgD.7 
2111=  S,  EXP,  Djq 

The  machine  cell  assigned  to  contain  the  first  part  (DgD2Dj)  of  the  datum  must  be  an 
even  SICAP  location.  This  requirement  is  automatically  handled  by  SICAP  and  is  of  no 
concern  to  the  user. 

The  SICAP  command  requires  one  SICAP  location  (two  machine  locations),  thus 
the  following  two  cards : 

ORG  100 

START  CLA  START-t  l,  7 
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would  cause  information  in  the  SICOM  format  KOPADDR  to  be  assembled  into  the  two 
equivalent  machine  locations  03 10^  and  0311„  symbolically  as  follows; 


X  X 

A 

P 

D 

R  1 

1  x| 

J _ L-. 

_J_J- 

_J _ i _ 1 

-.1-  .1 _ tl 

K  ,  ,OP 

0311  =  |X,X|  ,  ,  I  I  ,  ,  I  ,  I  I 

In  the  above  format  bit  11  of  the  "ADDR"  cell  and  bits  11  and  10  of  the  "KOP"  cell  are 

concerned  with  bank  assignment  and  are  of  no  interest  to  the  programmer. 

Numerically  in  SICAP  these  two  cells  appear 

0310  =  0101 
0311  =  0722 

When  examined  in  core  storage,  the  two  cells  appear 

0310  =  0145 
0311  =  0722 

MACHINE  LANGUAGE  ASSEMBLY  PROGRAM  (MLAP) 

In  SICOM  exists  an  instruction  K74ADDR  (transfer  to  machine  language)  which, 
when  executed  by  the  SICOM  interpreter  program,  results  in  uninhibited  control  being 
transferred  to  the  SICOM  location  effective  ADDR. 

SICAP  uses  mnemonic  CALL  Y  ±  a,  k  for  the  same  purpose.  That  is,  the 
interpreter  relinquishes  control  and  the  machine-language  program  beginning  at  SICAP 
effective  location  Y  ±  a,  k  is  free  to  operate  at  machine -language  speed. 

MLAP  was  included  in  the  SICOSAS  system  to  bypass  the  need  of  a  separate 
OSAS-A  compilation  of  the  machine -language  subroutines  needed  in  many  SICOM 
programs.  Every  machine-language  operation  mnemonic  used  in  OSAS-A  is  present 
in  MLAP.  Certain  control  pseudo  operations  are  different  and  these  will  be  discussed. 

In  using  MLAP  in  a  SICOSAS  program  one  simply  heads  the  portions  of  the  pro¬ 
gram  that  are  machine  language  with  an  MLAP  card  (see  section  entitled  SICOSAS 
Special  Purpose  Cards)  and  codes  in  what  is  effectively  the  OSAS-A  language.  Return 
to  the  SICAP  interpreter  is  accomplished  through  the  use  of  a  single  machine-language 
macro  instruction  RETURN.  (See  SICOSAS  Special  Purpose  Cards. ) 

The  symbolic  card  format  for  MLAP  is  identical  to  that  for  SICAP,  excepting, 
of  course,  that  there  is  no  tag  (index)  field  in  MLAP.  The  field  layout  then  is 
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ColSo  .l“6  Location  Field 

CoL  7  Blank 

Cols.  8“  15  Operation  Field 

Cols.  16  +  Variable  Field 

with  all  SICAP  format  ground  rules  for  each  field  in  effect. 

Appendix  E  shows  a  SICOSAS  program  in  which  there  is  interplay  between  the 
SICAP  and  MLAP  languages. 

Because  of  the  inherent  differences  in  the  requirements  of  OSAS-A,  the  basic 
assembly  system  for  the  160-A  computer  and  MLAP,  whose  function  is  to  insert 
machine-language  instructions  in  a  larger  over-all  interpretive  system,  certain  of  the 
OSAS-A  pseudo -ope ration  functions  have,  in  some  cases,  been  dropped.  For  those 
pseudo  operations  which  do  have  a  parallel  in  MLAP,  the  reader  is  referred  to  the 
section  entitled  SICOSAS  Special  Purpose  Cards.  In  summary,  the  status  of  the 
OSAS-A  pseudo  operations  in  MLAP  is  as  follows: 


OSAS-A 

MLAP 

ORG 

ORG 

PRG 

None 

CON 

None 

BLR 

None 

BSS 

BSS 

WAI 

None 

END 

END 

EQU 

EQU 

REM 

*(Col. 

BNKX 

None 

SUPA 

None 

SUPB 

None 

BCD 

None 

BCDR 

None 

FLX 

None 

FLXR 

None 

Appendix  C  contains  a  complete  alphabetized  list  of  all  mnemonics  recognized 
by  MLAP. 

SICOSAS  SPECIAL  PURPOSE  CARDS 

The  following  cards  are  not  of  the  command  type  listed  in  Appendix  A.  Some 
apply  only  when  SICAP  is  controlling  the  assembly:  others  when  MLAP  is;  still  others 
when  either  is.  All  of  these  mnemonic,  pseudo-operation  codes  occupy  the  operation 
field  of  the  card  unless  stated  otherwise. 
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SICAP 


The  SICAP  card  has  no  location  field,  no  variable  field.  When  a  compilation  is 
begun  by  SICOSAS,  the  assumption  is  that  the  initial  cards  conform  to  the  SICAP 
mnemonic  scheme.  (See  Appendix  A. )  When  this  mode  is  changed  (by  an  MLAP  card), 
the  system  is  returned  to  the  SICAP  mode  by  a  SICAP  card.  The  SICAP  card  then 
specifies  that  the  cards  following  it  belong  to  the  SICAP  language,  and  hence,  OSAS-A-type 
cards  (recognized  by  MLAP)  will  be  tagged  as  erroneous.  A  SICAP  card  read  by  SICAP 
has  no  effect. 

MLAP  (MLAP. ....  OCTAL) 

The  MLAP  card  is  a  counterpart  of  the  SICAP  card.  Upon  meeting  an  MLAP 
card  the  mode  of  SICOSAS  is  changed  to  expect  OSAS-A-type  cards  (see  Appendix  C) 
to  follow  until  another  SICAP  card  is  met.  The  MLAP  card  has  no  location  field.  If 
the  variable  field  (Cols.  16+)  of  the  MLAP  card  is  blank,  the  mode  of  MLAP  is  set  to 
DECIMAL.  If  the  variable  field  is  alphabetic  (such  as  OCTAL),  the  mode  of  MLAP  is 
set  to  OCTAL.  The  variable  fields  of  the  cards  following  the  MLAP  (MLAP. . . .  OCTAL) 
card  are  converted  decimally  or  octally  depending  on  the  mode  established.  An  MLAP 
card  read  by  MLAP  has  no  effect. 

♦(ASTERISK  IN  COLUMN  1) 

A  card  so  punched  has  no  effect  on  SICOSAS  other  than  to  reproduce  the  entire 
card  on  the  output  listing.  This  then  is  a  remarks  card  and  may  be  used  either  with 
SICAP  or  MLAP  in  control.  Such  cards  may  appear  anywhere  in  the  symbolic  deck. 

NAME 

The  NAME  card  has  no  location  field.  The  purpose  of  the  card  is  to  identify  the 
output  listing.  This  is  done  by  inserting  the  contents  of  columns  16  throu^  51  of  the 
NAME  card  into  an  appropriate  place  in  the  first  line  of  every  page  of  the  output  listing. 
Normally  the  program  author  would  use  his  name  and  the  date.  A  NAME  card  may  be 
read  by  either  SICAP  or  MLAP.  A  later  NAME  card  will  supplant  one  read  earlier. 

ORG  Y 

An  origin  (ORG)  card  has  the  effect  of  resetting  the  location  counter  to  the  value 
of  the  decimal  integer  Y  in  the  variable  field.  It  is  to  be  remembered  that  one  basic 
SICOM  instruction  requires  two  machine  cells.  For  this  reason,  Y  is  always  considered 
a  SICOM  location  so  that  the  location  counter  Lg  =  2Yj^q.  Thus, 
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ORG  1000 


resets  L  to  3720g. 

Any  number  of  ORG  cards  may  appear  in  the  program.  SICAP  and  MLAP  treat 
this  card  identically. 

DEC 


The  pseudo  operation  DEC  applies  only  to  SICAP.  It  is  used  to  introduce  floating 
point  decimal  data  into  the  SICAP  portion  of  the  SICOSAS  program.  The  location  and 
variable  fields  of  the  DEC  card  conform  to  the  general  rules  for  these  fields.  The 
variable  field  contains  a  signed  mantissa  (+  may  be  omitted),  a  mandatory  decimal 
point  (■  ),  and  an  optional  signed  exponent.  Thus  the  following  cards  are  valid  examples 
of  the  DEC  pseudo  operation. 


Card 

DEC  123.456E05 
DEC  -1.23456E“1 


Will  Convert  To 
+  .  123456  X  10^ 
-  .  123456  X  10° 


It  is  to  be  remembered  that  in  the  variable  field  a  blank  is  a  terminating  character  so 
that 

DEC  123.  456Eb5  produces  +  .  123456  x  10^ 

SICOSAS  automatically  stores  DEC  data  according  to  the  SICOM  ground  rules  for 
this  type  of  input. 

OCT 

The  pseudo  operation  OCT  applies  only  to  MLAP.  This  card  is  used  when  the 
mode  of  MLAP  has  been  established  as  DECIMAL  (see  MLAP  card),  but  it  is  desired 
to  introduce  an  octal  integer  into  the  program.  The  variable  field  has  four  columns 
beginning  in  Col.  16.  This  field  must  contain  an  octal  integer  I,  0^1^  7777. 

BSS  Y 

The  "block  starting  with  symbol"  (BSS)  pseudo  operation  is  used  to  reserve  a 
block  of  one  or  more  words  of  core  storage  within  the  SICOSAS  program.  The  variable 
field  of  the  BSS  card  must  be  absolute.  If  SICAP  is  in  control  when  the  BSS  is  met, 

Y  SICOM  locations  (2  x  machine  cells)  are  reserved  If  MLAP  meets  the  BSS,  or 
Yn  machine  locations  are  set  aside  depending  on  the  mode  of  MLAP. 
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EQU  Y  ±a 


The  general  rules  for  the  location  and  variable  field  given  previously  apply  to 
the  pseudo  operation  EQU.  Thus  Y  may  be  symbolic  or  absolute  and  a,  if  used,  may 
be  either  octal  or  decimal.  The  EQU  card,  however,  must  appear  in  the  symbolic 
deck  ahead  of  any  card  using  the  symbol  in  the  location  field  of  the  EQU  card.  Thus 
the  following  arrangement  will  compile  correctly: 

A  EQU  B 

CLA  A 

B  DEC  0. 

MASK 

The  MASK  pseudo  operation  applies  only  to  SICAP  and  is  used  in  conjunction 
with  the  EXTR  (K27  ADDR)  instruction.  The  general  rule  for  the  location  field 
applies.  The  variable  field  can  be  thought  of  as  a  floating  point  mask  with  up  to  ten 
sexadecimal  numbers  and  an  exponent  completely  analogous  to  the  one  in  the  DEC 
pseudo  operation. 

The  sexadecimal  numbers  0  through  9  correspond  to  the  four-bit  binary  configu 
rations  0000  through  1001. 

U  is  1010  X  is  1101 
V  is  1011  Y  is  1110 
W  is  1100  Z  is  nil 

Thus  if  a  decimal  datum  is  stored  with  the  DEC  pseudo  operation 


A 

DEC 

123.  5 

CLA 

A 

B 

EXTR 

MASKA 

MASKA 

MASK 

Z.ZZEl 

The  result  of  the  extraction  at  location  B  would  result  in  the  number  .  235 
appearing  in  the  accumulator  with  E  =  02;  i.  e. ,  23.  5  normalized. 

Notice  that  the  use  of  E,  ( •  ),  and  the  blank  are  carried  over  from  the  DEC 

card. 
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SQR 

LOG 

EXP 

SIN 

ATAN 


These  are  SICAP  Subroutine  Designator  cards  explained  under 
SICAP  Library  Subroutines. 


CALL  Y  ±  a,  k 

This  is  a  SICAP  command  (explained  elsewhere  but  mentioned  here  in  context 
with  the  RETURN  macro)  which  links  the  SICAP  portion  of  the  SICOSAS  program  with 
the  machine-language  portion  (MLAP).  Control  is  transferred  to  the  machine -language 
subroutine  starting  at  effective  SICAP  location  Y  ±  a,  k. 


REl’URN 

RETURN  is  a  macro-type,  machine -language  instruction  that  is  the  counterpart 
of  the  CALL  command.  RETURN  may  have  a  location  field  but  has  no  variable  field. 
When  MLAP  encounters  a  RETURN,  it  inserts  the  following  three  machine -language 
instructions  into  the  program. 

0040  SDC  Set  Direct  Bank 

2006  LDD  Return  Location 

0030  IRJ  Jump  to  SICOM  Interpreter 


END  Y 

The  variable  field  of  the  END  pseudo  operation  is  a  symbolic  location  in  the 
SICOSAS  program  to  which  control  will  first  be  passed  upon  loading  the  SICOSAS 
program  from  tape  on  the  160-A.  The  END  card  must  be  present;  however,  if  Y  is 
all  blank,  the  dynamic  start  point  will  be  set  to  the  first  symbolic  location  encountered 
in  the  program. 


SICOSAS  LIMITATIONS  AND  RESTRICTIONS 

a.  The  present  version  of  SICOSAS  was  written  with  a  two -bank  (0  and  1)  160-A 
computer  in  mind.  The  SICOM  compiler/interpreter  program  perforce 
occupies  all  of  bank  0.  The  SICOSAS  program  is  therefore  limited  to 

bank  1.  This  amount  of  storage  is  roughly  equivalent  to  1999  SICAP 
locations  which  must  be  shared  with  the  machine -language  portions  of  the 
program,  SICOM,  and  therefore,  SICAP,  is  enlargeable  but  at  this 
writing  this  size  limitation  exists. 

b.  Neither  SICAP  nor  MLAP  has  the  facility  directly  to  accept  alphabetic 

data  (which  would  normally  be  used  for  headings  by  the  final  160-A  program). 
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In  the  case  of  SICAP,  the  user  may  enter  this  type  of  data  through  an 
input  device,  while  with  MLAP  the  octal  equivalents  may  be  compiled 
directly. 

c.  Due  to  the  manner  in  which  the  SICAP  loader  operates  (see  SICOSAS 
Loader),  SICAP  locations  0000  to  0005  (octal  machine  locations  0000 
through  0013)  may  not  be  used  directly  by  the  SICOSAS  program  at 
compile  time.  This  is  to  say  that  no  program  instruction  or  constant 
should  be  assigned  to  these  cells;  however,  these  locations  may  be 
freely  referenced  in  the  coding  of  the  SICOSAS  program  through  the 
use  of  the  EQU  card,  for  example,  (see  SICOSAS  Special  Purpose 
Cards)  and  freely  used  by  the  program  in  operation.  While  all  other 
cells  in  bank  one  not  explicitly  containing  the  SICOSAS  program  will 
contain  zeros,  these  first  six  SICAP  locations  will  not. 

ERROR  PRINTOUTS 

SICOSAS  prints  out  error  indications  directly  on  the  program  listing  as  errors 
are  encountered  and  continues  with  the  assembly.  Sources  of  error  and  the  action 
taken  are  the  following: 

a.  Undefined  symbol:  The  symbol  is  equated  to  zero. 

b.  Multiply  defined  symbol:  The  symbol  is  assigned  the  value  given  it 
upon  meeting  it  for  the  first  time. 

c.  Illegal  operation  code:  A  NOP  replaces  the  illegal  code. 

d.  Out  of  range:  In  the  160- A  machine  instruction  format  EEXX,  the  XX 
which  is  evaluated  as  out  of  range  is  set  to  zero. 

e.  Illegal  additive  field:  The  additive  field  is  set  to  zero. 

f.  OCT  card  variable  field:  Variable  field  is  set  to  zero. 

g.  Decimal  data:  Zero  is  stored  for  the  illegal  datum. 

SICOSAS  LOADER  FOR  THE  160-A 

As  a  result  of  the  assembly  process  on  the  7090  computer,  there  exists  a  binary 
tape  which  when  read  into  the  160-A  computer  will  result  in  bank  1  containing  the 
information  necessary  to  operate  the  SICOSAS  program. 

To  facilitate  the  loading  of  this  tape  into  the  160-A,  SICOSAS  assembles  the 
following  SICAP  instructions  into  the  7090  map  of  the  160-A  bank  1  core  memory  in 
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such  a  fashion  that  upon  read-in  they  will  occupy  SICAP  locations  0000  through  0005 
as  follows: 


0000 

SELBIN 

0 

[Select  binary  tape  0] 

1 

ITAPE 

0,1 

[Read  in  under  control  of  index  #1] 

2 

TSM4 

4 

[Error  exit;  transfer  to  0004] 

3 

TSM4 

[START] 

[Read-in  o.  k. ;  transfer  to  execute] 

4 

REW 

[Try  again] 

5 

TSM4 

1 

[Reread  the  tape] 

When  in  the  assembly  process  SICOSAS  meets  the  END  card,  the  absolute 
dynamic  start  point  is  determined  and  stored  as  the  address  of  the  TSM4  instruction 
in  location  0003. 

The  problem  with  this  tape  at  the  160-A  is  simply  that  of  initiating  its  reading 
into  location  0  of  bank  1.  This  is  accomplished  by  first  reading  in  the  SICOM  inter¬ 
preter  into  bank  0  and  then  have  it  call  for  paper  tape  input.  (See  Operation  Notes. ) 

The  paper  tape  which  the  SICOM  interpreter  reads  contains  the  following 
equivalent  SICAP  instructions: 


ORPIN 

0 

[  Load  following  data  starting  in  location  0] 

SELBIN 

0 

[Select  binary  tape  0] 

ITAPE 

0,1 

[  Read  tape  0  under  I.  R.  1  control] 

SIB 

0,1 

[Set  i  base  0,  I.  R.  1] 

SIL 

1000, 1 

[Set  i  limit  1999,  I.  R.  1] 

ITYPE 

[Select  typewriter  input] 

OTYPE 

[Select  typewriter  output] 

TSM4 

0 

[Transfer  to  location  0000] 

XEQ 

2 

[Start  automatic  computation  at  location  0002] 

The  instructions  SELBIN  through  TSM4  0  are  read  by  the  SICOM  interpreter/compiler 
and  stored  in  locations  0000  through  0006  respectively.  The  XEQ  2  instruction 
transfers  control  to  the  SIB  0, 2  instruction  at  location  0002  under  the  guidance  of  the 
interpreter.  The  instructions  SIL  1999,1;  ITYPE;  and  OTYPE  are  executed  in  turn 
whereupon  control  goes  to  location  0000  where  the  magnetic  tape  is  selected  and  read- 
in  to  location  0000  and  successive  locations  is  initiated.  The  paper  tape  program  is 
read  over  and  the  six  order  program  at  the  beginning  of  the  magnetic  tape  is  in  control. 
This  program  transfers  to  the  SICOSAS  program  dynamic  start  point  at  the  completion 
of  a  successful  read-in,  or,  in  the  case  of  a  faulty  read-in,  rewinds  the  magnetic  tape 
and  initiates  another  loading. 
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SICOSAS  OPERATION  NOTES 


The  procedure  to  be  followed  to  have  a  SICOSAS  program  operate  on  the  160-A 
is  a  twofold  one.  First,  one  must  run  SICOSAS  on  the  7090  to  obtain  a)  a  printout  of 
the  listing  of  the  assembled  program,  and  b)  a  binary  magnetic  tape  which  contains  a 
map  of  the  assembled  program  as  it  will  appear  in  bank  1  of  the  160-A  core  memory. 
Second,  one  must  load  this  binary  magnetic  tape  into  the  160-A  for  execution.  These 
two  phases  will  be  discussed  in  the  order  outlined. 

7090  PROCEDURE 

SICOSAS  (LA07  is  the  program  identification  number)  is  an  SOS  program  which 
may  be  operated  as  such  from  the  usual  squoze  deck  under  control  of  "Modify  and  Load". 
For  purposes  of  minimizing  loading  time  and  the  number  of  mediary  tapes  required  for 
loading,  a  self-sufficient  binary  version  of  SICOSAS  has  been  recorded  on  magnetic 
tape.  For  use  with  this  binary  version  of  LA07  there  is  available  a  loader  operating 
through  the  card  reader  which  calls  in  SICOSAS  from  tape  drive  B9  (hi^  density)  and 
transfers  to  its  dynamic  start  point  for  execution. 

Irrespective  of  the  method  of  loading,  SICOSAS  tape  requirements  (aside  from 
those  required  by  SOS  if  this  method  of  loading  is  elected  or  the  B9  if  the  binary  version 
is  used)  are  as  follows; 

A- 7  (high  density)  BCD  listing  of  assembled  program. 

A-8  (high  density)  BCD  input  tape  (if  program  to  be  assembled  has  been 
prestored  on  tape). 

B-7  (high  density)  Mediary  tape. 

B-8  (low  density)  Binary  map  of  assembled  program  (input  to  160-A). 

When  SICOSAS  is  first  loaded  it  halts  on  an  HPR  at  location  35540g  to  allow  sense 
switch  settings  to  be  made  as  follows: 

UP  Input  is  on  tape  A-8. 

SSWl 

DOWN  Input  is  on  cards. 

UP  Print  listing  on-line  (as  well  as  off-line). 

SSW3  (dynamic) 

DOWN  Do  not  print  on-line. 

UP  When  finished  with  this  assembly,  rewind  the  listing  tape. 

SSW6 

DOWN  Do  not  rewind  the  listing  tape  (stack  output). 

Upon  the  completion  of  an  assembly,  the  binary  map  tape  (B8)  is  rewound  and 
must  be  replaced  since  no  stacking  is  done  on  this  tape.  At  this  point  the  program 
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announces  the  completion  of  the  job,  halts  and  awaits  the  next  run. 

In  addition  to  the  initial  HPR  stop  and  the  annotated  "finished"  stop,  SICOSAS 
will  stop  on  persistent  input  tape  redundancies  (HPR  1)  and  persistent  output  tape 
redundancies  (HPR  2).  The  user  is  advised  in  either  case  to  change  tape  and/or  tape 
drive  and  start  over.  Pressing  START  at  this  point  transfers  to  SICOSAS  start  point. 

160-A  PROCEDURE 

The  binary  tape  produced  at  the  7090  is  mounted  as  tape  0  low  density.  The 
SICOM  interpreter  is  now  loaded  (from  SICOM  master  paper  tape)  into  bank  0  as 
follows : 

1.  Clear  and  load  to  read  in  first  block  of  paper  tape.  P  =  0037,  A  =  7715, 

Z  =  0. . 

2.  Clear  and  run  to  read  in  remainder  of  interpreter  program.  P  =  4562, 

A  =  0005,  Z  =  7777. 

3.  SICOM  is  now  ready  to  accept  input  via  PETR.  Place  SICOSAS  loader  in 
reader,  clear  and  run.  The  loader  will  now  be  loaded  and  will,  in  turn, 
load  and  execute  the_^ICOSAS  program. 

JDD:pm 


17 


APPENDIX  A 
SICAP  INSTRUCTIONS 


The  basic  SICAP  instruction  card  appears 

1 - 6  7  8 - 15  16 - >  b - 72 

SYMBOL  OPCODE  Y±a,k  COMMENTARY 

In  general  the  symbol  (SYMBOL,  above)  in  the  location  field  (Cols.  1-6),  if  used, 
may  contain  one  to  six  alphanumeric  characters  at  least  one  of  which  must  be  non¬ 
numeric.  The  symbol  must  not  contain  +  or  —  and  must  start  in  Column  1.  The  mne¬ 
monic  operation  code  (OPCODE,  above)  in  the  operation  field  (Cols.  8-15)  must  start 
in  Column  8.  The  variable  field  (starting  in  Col.  16  and  terminating  with  a  blank)  has 
an  address  field  (Y  ±  a,  above)  and  may  have  a  tag  (or  index)  field  which  is  separated 
from  the  address  field  by  a  comma  (»).  K, where  used,  must  be  a  decimal  integer 
0  :£  K  <  9.  The  address  field  may  contain  an  additive  subfield  (±  a,  above).  The 
start  of  the  additive  field  is  signaled  by  the  +  or  —  sign,  "a"  must  be  a  decimal  inte¬ 
ger  0  ^  a  ^  1999.  The  address  field  (Y,  above)  may  either  be  symbolic  or  a  decimal 
integer  0  <  Y  <  9999.  If  Y  is  absolute,  no  additive  subfield  is  permitted. 

The  description  of  each  instruction  given  below  follows  the  ordering  of  instruc¬ 
tions  of  the  SICOM  Command  List  on  page  (iv)  of  the  SICOM  manual.  Attention  is 
further  invited  to  Appendix  B  which  alphabetically  lists  all  operations  and  pseudo 
operations  recognized  by  SICAP  along  with  references  for  each  operation. 


SIB  Y±a,k 

SID  Y±a,k 

SIL  Y±a,k 

DIB  Y  ±  a,  k 


Set  i  Base 

The  base  component  of  dimension  i  of  index  register  k  is 
set  to  the  value  Y  ±  a. 

Set  i  Difference 

The  difference  component  of  dimension  i  of  index  regis¬ 
ter  k  is  set  to  the  value  Y  ±  a. 

Set  i  Limit 

The  limit  component  of  dimension  i  of  index  register  k  is 
set  to  the  value  Y  ±  a. 

Decrement  i  Base 

This  command  operates  on  the  i  dimension  of  index  regis¬ 
ter  k.  The  base  component  is  decreased  by  the  amount  of 
the  difference  component.  The  resulting  base  is  then 
compared  with  the  limit  component.  If  the  base  is  equal  to 
or  larger  than  the  limit,  Y  ±  a  is  then  taken  as  the  location 
of  the  next  command  to  be  executed.  If  the  base  is  smaller, 
the  command  falls  through,  that  is,  the  next  command  in 
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IIB  Y  ±  a,  k 


SJB  Y  ±  a,  k 

SJD  Y  ±  a,  k 

SJL  Y  ±  a,  k 

DJB  Y  ±  a,  k 

IJB  Y±a,k 

CADM  Y  ±  a,  k 

CLS  Y±a,k 

CLA  Y±a,k 

IDVP  Y  ±  a,  k 


sequence  is  executed.  During  relative  mode,  operation 
is  similar  except  Y  ±  a  indicates  the  number  of  locations 
forward  to  the  next  command. 

Increment  i  Base 

This  command  operates  on  the  i  dimension  of  index  regis¬ 
ter  k.  The  base  component  is  increased  by  the  amount 
of  the  difference  component.  The  resulting  base  is  then 
compared  with  the  limit  component.  If  the  base  is  smaller 
or  equal  to  the  limit,  Y  ±  a  is  then  taken  as  the  location  of 
the  next  command  to  be  executed.  If  the  base  is  larger, 
the  command  falls  through,  that  is,  the  next  command  in 
sequence  is  executed.  During  the  relative  mode,  operation 
is  similar  except  that  Y  ±  a  indicates  the  number  of 
locations  forward  to  the  next  command. 

Set  j.  Base 

The  base  component  of  dimension  j  of  index  register  k  is 
set  to  the  value  Y  ±  a. 

Set  j  Difference 

The  difference  component  of  dimension  j  of  index  register 
k  is  set  to  the  value  Y  ±  a. 

Set  j  Limit 

The  limit  component  of  dimension  j  of  index  register  k  is 
set  to  the  value  Y  ±  a. 

Decrement  j  Base 

This  command  operates  similar  to  "Decrement  i  Base" 
except  that  the  j  dimension  is  involved. 

Increment  j  Base 

This  command  operates  similar  to  the  command  "Incre¬ 
ment  i  Base"  except  that  the  j  dimension  is  involved. 

Clear  and  Add  Magnitude 

The  absolute  value  of  contents  of  effective  Y  ±  a  is  copied 
into  the  accumulator. 

Clear  and  Subtract 

The  contents  of  effective  Y  ±  a  are  copied  into  the  accu¬ 
mulator  and  the  sign  reversed. 

Clear  and  Add 

The  contents  of  effective  Y  ±  a  are  copied  into  the  accu¬ 
mulator. 


Inverse  Divide 

The  contents  of  effective  Y  ±  a  are  divided  by  the  contents 
of  the  accumulator. 
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DVP 

MPY 

EXCH 

EXTR 

ADD 

SUB 

ADM 

ISUB 

RAD 

CAS 


Y  ±a,k 

Y  ±a,k 

Y  ±a,k 

Y  ±a,k 


Y  ±a,k 

Y  ±a,k 


Y  ±a,k 


Y  ±  a,  k 


Y  ±a,k 


Y  ±a,k 


Divide 

The  contents  of  the  accumulator  are  divided  by  the  contents 
of  effective  Y  ±  a. 

Multiply 

The  contents  of  the  accumulator  are  multiplied  by  the  con¬ 
tents  of  effective  Y  ±  a. 

Exchange 

The  contents  of  the  accumulator  and  the  contents  of  effec¬ 
tive  Y  ±  a  are  interchanged. 

Extract 

The  accumulator  is  extracted  under  control  of  the  extrac¬ 
tor  in  effective  Y  ±  a.  All  other  accumulator  bits  are 
cleared.  Each  decimal  digit  is  represented  by  four 
binary  bits,  therefore,  any  accumulator  bit  configuration 
may  be  detected  by  using  sexadecimal  numbers  in  the 
extractor.  A  *'Z"  digit  in  the  extractor  will  extract  the 
corresponding  complete  digit  from  the  accumulator.  The 
result  of  the  extraction  is  in  normalized  (digitally)  form 
with  the  proper  exponent.  To  extract  the  sign,  a  negative 
extractor  must  be  used.  (See  Appendix  D,  MASK  pseudo 
operation. ) 

Add 

The  contents  of  effective  Y  ±  a  are  added  to  the  contents 
of  the  accumulator. 


Subtract 

The  contents  of  effective  Y  ±  a  are  subtracted  from  the 
contents  of  the  accumulator. 

Add  Magnitude 

The  absolute  value  of  the  contents  of  effective  Y  ±  a  are 
added  to  the  contents  of  the  accumulator. 

Inverse  Subtract 

The  contents  of  the  accumulator  are  subtracted  from  the 
contents  of  the  effective  Y  ±  a.  The  result  is  in  the 
accumulator.  Effective  Y  ±  a  is  unchanged. 

Replace  Add 

The  contents  of  the  accumulator  are  added  to  the  contents 
of  effective  Y  ±  a  and  the  result  is  stored  in  effective 
Y  ±  a. 


Compare  Accumulator  with.  Storage 

The  contents  of  the  accumulator  are  compared  with  the 
contents  of  effective  Y  ±  a.  (1)  If  effective  Y  ±  a  is  the 
smaller  of  the  two,  control  goes  to  the  next  command  in 
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OFLTB  Y  ±  a,  k 


OFLCR  Y±a,k 


OFXTB  Y±a,k 


OFXCR  Y  ±  a,  k 


OFORM  Y  ±  a,  k 


OCRTB  Y  ±  a,  k 


OTBNO  Y  ±  a,  k 


OCMND  Y  ±  a,  k 


sequence.  (2)  If  the  two  are  equal,  control  goes  to  the 
second  location  down,  i.  e. ,  if  the  command  is  at  XRAY, 
an  equal  control  will  go  to  XRAY+2.  (3)  If  effective 
Y  ±  a  is  larger,  control  goes  to  the  third  command  down, 
i.  e. ,  XRAY+3.  This  command  cannot  be  executed  from 
the  last  three  locations  in  a  bank  (i.  e.  ,  1997,  1998,  and 
1999)  due  to  the  multiple  exits. 

Output  Floating  Point  and  Tab 

The  contents  of  effective  Y  ±  a  are  put  out  as  a  floating  point 
number  on  the  previously  selected  device.  The  format  is 
sign,  period,  10  digits,  exponent,  followed  by  a  tab. 

Output  Floating  Point  and  Carriage  Return 

The  contents  of  effective  Y  ±  a  are  put  out  as  a  floating  point 
number  on  the  previously  selected  device.  The  format  is 
sign,  period,  10  digits,  exponent,  followed  by  a  carriage 
return. 


Output  Fixed  Point  and  Tab 

The  contents  of  effective  Y  ±  a  are  put  out  as  a  fixed  point 
number  on  the  previously  selected  device.  The  format  is 
sign,  m  integer  digits,  period, n  fractional  digits,  followed 
by  a  tab.  m  and  n  are  set  by  "OFORM"  Command. 

Output  Fixed  Point  and  Carriage  Return 

The  contents  of  effective  Y  ±  a  are  put  out  as  a  fixed  point 
number  on  the  previously  selected  device.  The  format  is 
sign,  m  integer  digits,  period,  n  fractional  digits,  followed 
by  a  carriage  return,  m  and  n  are  set  by  "OFORM" 
Command. 

Set  Output  Format 

If  effective  Y  ±  a,  k  is  represented  as  a  decimal  integer 
ADDR,  m,  0  ^  m  ^  18  is  set  to  AD  digits  and  n,  0  £  n  18 
is  set  to  DR  digits.  (See  OFXTB  and  OFXCR)  AD  plus  DR 
cannot  exceed  18.  If  DR  is  zero,  the  period  is  not  put  out. 

Output  Carriage  Returns  and  Tabs 

If  effective  Y  ±  a,  k  is  represented  as  a  decimal  integer 
ADDR,  AD  carriage  returns  followed  by  DR  tabs  are  put 
out. 


Output  Tabulating  Number 

The  value  effective  Y  ±  a  is  put  out  without  a  period  followed 
by  a  tab.  The  largest  number  which  may  be  put  out  is  9999. 
This  command  is  useful  for  automatic  numbering  of  lines 
and  columns  of  output. 

Output  a  Command  from  Memory 

The  command  in  location  effective  Y  ±  a  is  put  out  in  the 
standard  form  (K  OP  Y  ±  a)  followed  by  a  carriage  return. 


21 


WRFILE  Y  ±  a,k  Write  File  Number  on  Magnetic  Tape 

An  end  of  file  mark  and  a  record  containing  the  number 
effective  Y  ±  a  is  written  on  the  previously-selected  tape 
drive.  Effective  Y  ±  a  is  the  file  number  identifying  the 
file  which  follows.  The  normal  exit  is  L  +  2.  TTie  con¬ 
ditional  exit  (L  +  1)  is  utilized  in  the  event  that  end  of  tape 
has  been  sensed  during  this  or  a  previous  operation.  Since 
the  search  operation  assumes  no  files  are  opened  after  the 
end  of  tape  spot,  it  is  recommended  that  if  the  end  of  tape 
spot  is  sensed,  the  file  number  be  erased  and  the  tape 
ended  (backspace  2  records  and  write  the  end  of  tape  code 
number).  K  bad  tape  or  a  drive  malfunction  prevents  the 
writing  of  a  file  number  anywhere  between  the  initial 
position  of  the  tape  and  the  end  of  the  tape,  the  drive  will 
“hang  up"  on  the  conductive  trailer  at  the  end  of  the  tape. 
File  numbers  must  be  in  increasing  size  as  you  proceed 
to  the  end  of  the  tape.  Zero  should  not  be  used  as  a  file 
number. 


SRFILE  Y  ±  a,k  Search  Magnetic  Tape  for  File  Number 

A  search  for  file  number  effective  Y  ±  a  is  initiated  on  the 
previously-selected  tape  drive.  Upon  the  conclusion  of  a 
successful  search,  the  next  command  executed  is  the 
second  one  in  sequence  (L  +  2)  (normal  exit).  The  con¬ 
ditional  exit  (L  +  1)  is  used  if  either  of  the  following  occur: 

(1)  Ten  attempts  to  read  a  file  number  have  failed  due  to 
a  parity  error.  The  accumulator  is  set  to  zero  prior  to 
exiting  in  this  case. 

(2)  A  reflective  spot  was  sensed  during  the  search  oper¬ 
ation  (Load  Point  or  End  of  Tape),  The  first  file  number 
after  the  spot  is  placed  in  the  accumulator. 

The  search  operation  starts  by  backspacing  to  and  reading 
the  first  file  number  back.  A  comparison  of  this  "tape" 
file  number  with  Y  ±  a  determines  the  direction  of  the 
search. 

If  the  "tape"number  is  larger  than  effective  Y  ±  a,  the 
search  will  be  in  the  direction  of  the  load  point. 

If  the  "tape"  number  is  smaller  than  Y  ±  a  or  if  the  load 
point  is  sensed,  the  search  will  be  in  the  direction  of  the 
end  of  the  tape.  If  a  subsequent  file  number  indicates 
that  the  direction  should  be  changed  again,  the  standard 
error  indication  of  0047  is  given.  Cycling  the  run  switch 
after  this  indication  will  cause  the  search  to  restart. 

Example:  The  search  for  101  among  consecutive  numbers 
of  98,  lOQ  and  103  would  cause  error  0047. 
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GRPIN 


Y  ±  a,k 


SNGIN  Y  ±  a,  k 


lOCTAL  Y  ±  a,  k 


OALPHA  Y  ±  a,  k 


LDANR  Y  ±  a,  k 


CMPANR  Y  ±  a.  k 

MRGANR  Y±a,k 

EXTANR  Y  ±  a,  k 

TZE  Y±a,k 


TNZ  Y  ±  a,  k 


TPL  Y  ±  a,  k 


Group  Input 

Input  is  transferred  to  effective  Y  ±  a  and  consecutive 
locations.  (See  SICOM  Manual,  paragraph  11.  B,  6,  p.  14, 
"Normal  Input". ) 

Single  Input 

Input  is  transferred  only  to  location  effective  Y  ±  a.  One 
word  of  any  type  of  input  may  be  entered.  The  input  is 
terminated  by  either  a  carriage  return  or  a  tab. 

Input  Octal  Tape 

Tape  punched  by  "OOCTAL"  Command  is  read  into  the 
receiving  field  starting  at  effective  Y  ±  a.  The  field  must 
fall  entirely  within  a  bank.  The  location  of  the  receiving 
field  may  differ  from  the  original  source  field. 

Output  Alphanumeric  Data 

The  contents  of  address  effective  Y  ±  a  and  effective  Y  ±  a 
+  1  are  put  out  as  8  alphanumeric  characters  on  the  pre¬ 
viously-selected  device.  This  instruction  is  not  affected 
by  the  relative  mode. 

Load  Alpha  Numeric  Register  (A.  N.  R. ) 

The  contents  of  effective  Y  ±  a  are  loaded  into  A.  N.  R.  as 
alphanumeric  data.  (See  SICOM  Manual,  paragraph 
II.  B.  9,  p.  18,  "Manipulating  Alphanumeric  Data.  ") 

Compare  Alpha  Numeric  Register  (A.  N.  R. ) 

(See  SICOM  Manual,  paragraph  II.  B.  9,  p.  18,  "Manip¬ 
ulating  Alphanumeric  Data.  ") 

Merge  into  Alpha  Numeric  Register  (A.  N.  R. ) 

(See  SICOM  Manual,  paragraph  II.  B.  9,  p.  18,  "Manip¬ 
ulating  Alphanumeric  Data.  ") 

Extract  Alpha  Numeric  Register  (A.  N.  R.  ) 

(See  SICOM  Manual,  paragraph  II.  B.  9,  p.  18,  "Manip¬ 
ulating  Alphanumeric  Data.  ") 

Transfer  on  Accumulator  Zero 

If  the  contents  of  the  accumulator  is  zero,  a  mark  60 
jump  to  effective  Y  ±  a  occurs.  Otherwise,  the  normal 
sequence  is  continued. 

Transfer  on  Accumulator  Non- Zero 

If  the  contents  of  the  accumulator  is  not  zero,  a  mark  61 
jump  to  effective  Y  ±  a  occurs.  Otherwise,  normal 
sequence  continues. 

Transfer  on  Accumulator  Hus 

If  the  accumulator  contains  a  positive  quantity  (including 
zero),  a  mark  62  jump  to  effective  Y  ±  a  occurs.  Other¬ 
wise,  normal  sequence  continues. 
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TMI 


Y  ±  a,k 

TSM4  Y±a,k 

TSM5  Y  ±  a,  k 

TSM6  Y±a,k 

TNR7  Y  ±  a,  k 

TSR  Y±a,k 

TSJl  Y±a,k 

TSJ2  Y  ±  a,  k 

TSJ3  Y±a,k 

CALL  Y±a,k 


Transfer  on  Accumulator  Minus 

If  the  accumulator  contains  a  negative  quantity,  a  mark 
63  jump  to  effective  Y  ±  a  occurs.  Otherwise,  normal 
sequence  continues. 

Transfer  and  Set  Mark  4 

The  next  command  in  sequence  is  marked  for  a  "return 
to  mark  4"  return.  Control  goes  to  effective  Y  ±  a. 

Transfer  and  Set  Mark  5 

The  next  command  in  sequence  is  marked  for  a  "return 
to  mark  5"  return.  Control  goes  to  effective  Y  ±  a. 

Transfer  and  Set  Mark  6 

The  next  command  in  sequence  is  marked  for  a  "return 
to  mark  6"  return.  Control  goes  to  effective  Y  ±  a. 

Transfer  Non-Relative  and  Set  Mark  7 

The  next  command  in  sequence  is  marked  for  a  "return 
to  mark  7"  return.  Control  goes  to  effective  Y  ±  a. 

This  command  is  imt  affected  by  the  relative  mode.  This 
makes  a  jump  from  relative  subroutine  to  fixed  area 
possible. 

Transfer  to  Subroutine 

This  command  operates  the  same  as  other  unconditional 
transfer  commands.  It  is  also  used  to  enter  standard 
SICOM  subroutines,  thereby  disturbing  any  70  mark 
which  may  have  been  set  previously. 

Transfer  on  Selective  Jump  Switch  1  On 

If  selective  jump  switch  number  one  is  ON,  the  next  con¬ 
secutive  command  is  marked  for  a  return  to  selective 
jump  one  (RSJl)  return  and  control  goes  to  the  location 
effective  Y  ±  a.  If  the  jump  switch  is  not  ON,  the  normal 
sequence  is  continued. 

Transfer  on  Selective  Jump  Switch  2  On 

This  command  operates  similar  to  the  one  above  except 
that  jump  switch  two  is  used  and  the  return  is  "return  to 
selective  jump  two"  (RSJ2). 

Transfer  on  Selective  Jump  Switch  1  and  2  Both  On 

If  both  jump  switch  one  and  two  are  ON,  the  next  con*- 
secutive  command  is  marked  for  a  return  to  "return  to 
selective  jump  three  (RSJ3)".  Control  goes  to  effective 
Y  ±  a.  If  either  jump  switch  if  OFF,  the  next  command 
in  sequence  is  executed. 

Transfer  to  Machine  Language  Subroutine 

Control  is  transferred  to  the  machine  language  subroutine 
which  starts  at  effective  location  Y  ±  a. 
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TBR  Y  ±  a,  k 

STOANR  Y  ±  a,  k 

STO  Y  ±  a,  k 

NOP 

STOPl 

STOP2 

HALTS 

HALT4 

HPRIN 

REL 


Transfer  Back  Relative 

Control  goes  backwards  Y  ±  a  effective  locations  re¬ 
gardless  of  the  addressing  mode.  No  mark  is  set. 

Store  A.  N.  R. 

The  contents  of  A.  N.  R.  are  copied  into  effective  Y  ±  a 
and  effective  Y  ±  a  +  1  as  alphanumeric  data.  A.  N.  R.  is 
unchanged. 

Store  Accumulator 

The  contents  of  the  accumulator  are  copied  into  effective 
Y  ±  a  and  effective  Y  ±  a  +  1.  The  accumulator  remains 
unchanged. 

No  Operation 

This  command  may  be  used  to  reserve  a  location  to  be 
filled  conditionally.  No  operation  is  performed.  The 
computer  proceeds  to  the  next  location. 

Selective  Stop  1 

If  selective  stop  switch  1  is  on,  computation  stops  with 
Panel  display  A  =  0001.  Resume  computation  by  cycling 
run  switch.  If  the  switch  is  off,  the  command  has  no 
effect.  Computation  continues  in  normal  sequence 
regardless  of  switch  setting. 

Selective  Stop  2 

Same  as  Selective  Stop  1  except  under  control  of  Switch  2, 
Panel  Display:  A  =  0002. 

Stop  Display  3 

Computation  stops  with  Panel  Display:  A  =  0003.  It  may 
be  resumed  at  the  next  sequential  location  by  cycling 
the  run  switch. 

Stop  Display  4 

Same  as  Stop  Display  3  only  A  =  0004. 

Halt  and  Await  Input 

If  Flexowriter  input  has  been  selected,  computation  stops 
with  A  =  0005  and  input  is  when  the  run  switch  is  cycled. 
If  typewriter  input  has  been  selected,  input  is  gated. 

(See  SICOM  Manual,  paragraph  IV.  a,  p.  71,  "Operating 
Modes. ") 

Select  Relative  Mode 

All  subsequent  commands  are  interpreted  in  the  relative 
addressing  mode.  Termination  is  %  execution  of  a 
"SELECT  ABSOLUTE  MODE"  (ABS),  a  master  clear  and 
run  or  "Halt  and  Await  Input". 
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ABS 

FAST 

TRACE 

ZEROIR 

IFLEX 

OFLEX 

ITYPE 

OTYPE 

OPRINT 

SELBCD 

SELBIN  Y  ±  a,  k 


Select  Absolute  Mode 

Computation  returns  to  the  normal  absolute  addressing 
mode. 


Select  Non-Trace  Mode 

Tracing  is  discontinued.  This  command  is  normally 
used  to  avoid  tracing  through  SICOM  subroutines.  Dur¬ 
ing  non-trace  operation  this  command  is  the  same  as  a 
"NO  OPERATION".  This  also  discontinues  the  step  mode. 
Both  operations  are  restored  upon  execution  of  "Reset 
Trace"  or  a  master  clear  and  run. 

Reset  Trace  Mode 

Restores  the  trace  and  step  modes  which  were  in  effect 
prior  to  the  execution  of  a  "SELECT  NON-TRACE" 
(FAST).  This  command  is  normally  placed  at  the  end 
of  a  SICOM  subroutine. 

Clear  Index  Registers 

This  command  sets  all  components  of  all  index  registers 
to  zero. 


Select  Flexowriter  Input 

All  subsequent  normal  input  commands  will  be  via  Flexo¬ 
writer  tape. 

Select  Flexowriter  Output 

All  subsequent  normal  output  will  be  punched  on  Flexo¬ 
writer  tape. 

Select  Typewriter  Input 

All  subsequent  normal  input  commands  will  be  via  the 
typewriter 

Select  Typewriter  Output 

All  subsequent  normal  output  will  be  printed  via  the  type¬ 
writer. 


Select  Printer 


(Not  Available. ) 

Select  Tape  to  Printer 

All  subsequent  normal  output  is  put  on  magnetic  tape  drive 
1  suitable  for  off  line  magnetic  tape  to  printer  listing. 

Only  tape  drive  1  and  print  channel  0  can  be  used.  Each 
line  to  be  printed  is  recorded  as  a  120  Binary  Coded 
Decimal  character  record. 

Select  Magnetic  Tape  Drive  Y  ±  a,k 

If  k  =  0,  the  j  base  of  index  k  is  added  to  Y  ±  a.  This 
new  value  of  Y  ±  a  (or  the  original  value  if  k  =  0)  is  the 
number  of  the  drive  which  will  be  used  in  all  subsequent 
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tape  operations.  The  accumulator  is  not  disturbed. 

This  command  automatically  selects  odd  parity.  Y  ±  a 
may  have  values  of  1,  2,  3,  or  4.  If  the  power  is  off 
on  drive  Y  ±  a,  or  if  no  drive  has  been  set  to  Y  ±  a, 
the  computer  hangs  up  with  the  select  light  on.  The 
execution  of  0  00  0017  "Select  Tape  to  Printer"  SELBCD 
voids  all  prior  magnetic  tape  selections. 

BSR  Y  ±  a  Backspace  Y  ±  a  Records 

If  Y  i-  a  0;  the  previously -selected  drive  will  be  back- 
spaced  Y  ±  a  records  Note  that  an  end  of  file  mark  and 
file  numbers  are  each  considered  a  record,  and  that  no 
indication  of  load  point  or  end  of  tape  is  given.  Y  ±  a 
may  have  values  up  to  99.  Backspacing  beyond  the  load 
point  will  cause  the  drive  to  "hang  up"  on  the  conductive 
leader. 


REW  Rewind 

The  previously- selected  drive  will  rewind  to  the  load 
point.  A  rewind  from  the  load  point  has  no  effect. 

OTAPE  0,  k  Write  on  Magnetic  Tape 

The  field  defined  by  index  register  k  (i  Base  =  1st 
location,  i  Difference  =  length)  is  copied  on  the  pre¬ 
viously-selected  tape  drive  as  one  record.  The 
accumulator  is  not  disturbed  by  either  the  normal  (L  +  2) 
or  the  conditional  (L  +  1)  exit.  The  conditional  exit 
indicates  that  the  end  of  tape  spot  was  sensed  on  this  or 
a  previous  command. 

If  a  parity  error  occurs  during  a  write  operation,  the 
record  is  erased,  6  inches  of  tape  skipped  and  the  record 
is  re-written.  This  process  continues  until  the  record 
is  properly  written  or  the  conductive  leader  is  reached. 
Due  to  the  double  exit,  this  command  cannot  be  executed 
from  the  last  two  locations  in  a  bank,  i.  e. ,  1998  and 
1999. 


IT  APE  0,  k  Read  Magnetic  Tape 

One  record  of  information  is  read  from  the  previously- 
selected  tape  drive.  It  is  read  into  the  field  defined  by 
index  register  K  (i  base  =  starting  location,  i  difference 
=  the  length).  If  the  tape  record  is  longer  than  the  field, 
the  remainder  of  the  record  will  be  read  but  not  stored 
in  memory. 

If  the  record  is  shorter  than  the  field,  all  of  the  remainder 
of  the  field  will  be  unchanged  except  the  location  imme-- 
diately  following  the  end  of  the  record.  This  location  will 
be  altered.  The  normal  exit  (L  +  2)  does  not  disturb  the 
accumulator.  The  conditional  exit  (L  +  1)  is  utilized 
for  the  following  two  conditions: 
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(1)  Ten  attempts  to  read  the  record  are  unsuccessful 
due  to  a  parity  error.  The  accumulator  is  set  to  zero 
prior  to  exiting  in  this  case.  The  record  is  stored  in 
memory  as  it  was  read  on  the  last  attempt. 

(2)  The  end  of  file  was  read.  In  this  case,  the  next 
file  number  is  placed  into  the  accumulator  ready  for 
possible  test  to  determine  if  the  end  of  the  tape  has  been 
reached.  No  end  of  tape  indication  as  such  is  given. 

An  attempt  to  read  beyond  the  last  record  on  the  tape 
will  result  in  the  drive  "hanging  up"  on  the  conductive 
trailer.  Due  to  the  double  exit,  this  command  cannot 
be  executed  from  the  last  two  locations  in  a  bank,  i.  e. , 
1998  and  1999. 


BLCPY  0,  k  Block  Copy 

The  source  field  defined  by  index  register  k  is  copied 
into  a  receiving  field  which  starts  at  the  address  speci¬ 
fied  by  the  j  base  of  index  k.  If  the  two  fields  overlap, 
the  j  base  must  be  smaller  than  the  i  base.  The  two 
fields  may  be  in  different  banks.  (See  SICOM  Manual, 
paragraph  II.  B.  19,  p.  30,  "Block  Operations.  ") 

BLCLR  0,  k  Block  Clear 

The  field  defined  by  index  register  k  is  cleared  to  zero. 
(See  SICOM  Manual,  paragraph  II.  B.  19,  p.  30,  "Block 
Operations.  ") 

OOCTAL  0,  k  Output  Octal  Tape 

The  field  defined  by  index  register  k  is  punched,  in  bi- 
octal  form,  followed  by  two  blank  frames  and  the  check 
sum  (two  frames).  This  tape  may  be  read  with  the 
IOCTAL  command.  A  one -inch  trailer  is  also  punched. 


OSPEC  0,  k 


ISPEC 


RZE 


RNZ 


Output  Special  Tape 

The  field  defined  by  index  k  is  punched  in  bi-octal  form 
in  the  format  shown  on  page  31  of  the  SICOM  Manual. 

Input  Special  Tape 

Reads  tape  punched  by  the  command  OSPEC.  Reading 
stops  when  a  leader  over  6"  long  is  detected. 

Return  to  TZE 

Control  is  returned  to  the  location  +1  of  the  most 
recently  executed  transfer  on  accumulator  zero  (TZE) 
instruction. 

Return  to  TNZ 

Control  is  returned  to  the  location  +1  of  the  most  recently 
executed  transfer  on  accumulator  non-zero  (TNZ) 
instruction. 
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RPL  Return  to  TPL 

Control  is  returned  to  the  location  +1  of  the  most 
recently  executed  transfer  on  accumulator  positive 
(TPL)  instruction. 

RMI  Return  to  TMI 

Control  is  returned  to  the  location  +1  of  the  most 
recently  executed  transfer  on  accumulator  negative 
(TMI)  instruction. 

RSM4  Return  to  TSM4 

Control  is  returned  to  the  location  +1  of  the  most 
recently  executed  transfer  and  set  Mark  4  (TSM4) 
instruction. 

RSM5  Return  to  TSM5 

Control  is  returned  to  the  location  +1  of  the  most 
recently  executed  transfer  and  set  Mark  5  (TSM5) 
instruction. 

RSM6  Return  to  TSM6 

Control  is  returned  to  the  location  +1  of  the  most 
recently  executed  transfer  and  set  Mark  6  (TSM6) 
instruction. 

RNR7  Return  to  TNR7 

Control  is  returned  to  the  location  +1  of  the  most 
recently  executed  transfer  non-relative  and  set  Mark  7 
(TNR7)  command. 

RSR  Return  to  TSR 

Control  is  returned  to  the  location  +1  of  the  most 
recently  executed  transfer  to  subroutine  (TRS)  instruc¬ 
tion. 

RSJl  Return  to  TSJl 

Control  is  returned  to  the  location  +1  of  the  most 
receitly  executed  transfer  if  selective  jump  switch  one 
is  on  (TSJl)  command. 

RSJ2  Return  to  TSJ2 

Control  is  returned  to  the  location  +1  of  the  most 
recently  executed  transfer  if  selective  jump  switch  two 
is  on  (TSJ2)  command. 

RSJ3  Return  to  TSJ3 

Control  is  returned  to  the  location  +1  of  the  most 
recently  executed  transfer  if  selective  jump  switch 
three  is  on  (TSJ3)  command. 

OLOC  Output  Last  Location 

Location  of  last  command  executed  is  put  out  on  the  pre¬ 
viously-selected  device. 


29 


PUSTOP 


CLAC*  Y±a 


CLSC*  Y  ±  a 


IDVPC*  Y±a 


DVPC*  Y  ±  a 


MPYC  *  Y  ±  a 


ADDC*  Y±a 


SUBC*  Y±a 


Punch  Stop,  Check  and  Leader 
The  following  are  punched  on  tape: 

(1)  A  stop  code, 

(2)  The  check  sum  of  all  normal  output  punched  since 
the  last  "Halt  Select  Manual  Mode"  or  since  the  last 
"Punch  Stop,  Check,  and  Leader.  " 

(3)  A  one-inch  leader. 

This  is  useful  for  Flexowriter  output  exclusively. 

Clear  and  Add  Constant 

The  value  Y  ±  a  is  loaded  into  the  accumulator.  The 

Y  ±  a  of  these  commands  is  n^  an  address  but  instead  a 
numeric  value  between  0  and  9999.  It  cannot  be  a  frac¬ 
tion.  The  result  is  always  in  the  accumulator. 

Clear  and  Subtract  Constant 

The  value  minus  Y  ±  a  is  loaded  into  the  accumulator. 

The  Y  ±  a  of  these  commands  is  not  an  address  but  instead 
a  numeric  value  betweai  0  and  9999.  It  cannot  be  a  frac¬ 
tion.  The  result  is  always  in  the  accumulator. 

Divide  into  Constant 

The  contents  of  the  accumulator  are  divided  into  the  value 

Y  ±  a.  The  Y  ±  a  of  these  commands  is  not  an  address 
but  instead  a  numeric  value  between  0  and  9999.  It 
cannot  be  a  fraction.  The  result  is  always  in  the  accu¬ 
mulator. 

Divide  by  Constant 

The  accumulator  is  divided  by  the  value  Y  ±  a.  The  Y  ±  a 
of  these  commands  is  not  an  address  but  instead  a 
numeric  value  between  0  and  9999.  It  cannot  be  a 
fraction.  The  result  is  always  in  the  accumulator. 

Multiply  by  Constant 

The  accumulator  is  multiplied  by  the  value  Y  ±  a.  The 

Y  ±  a  of  these  commands  is  not  an  address  but  instead  a 
numeric  value  between  0  and  9999.  It  cannot  be  a  frac¬ 
tion..  The  result  is  always  in  the  accumulator. 

Add  Constant 

The  value  Y  ±  a  is  added  to  the  accumulator.  The  Y  ±  a 
of  these  commands  is  not  an  address  but  instead  a 
numeric  value  between  0  and  9999.  It  cannot  be  a  frac¬ 
tion.  The  result  is  always  in  the  accumulator. 

Subtract  Constant 

The  value  Y  ±  a  is  subtracted  from  the  accumulator.  The 

Y  ±  a  of  these  commands  is  not  an  address  but  instead 
a  numeric  value  between  0  and  9999.  It  cannot  be  a 
fraction.  The  result  is  always  in  the  accumulator. 


*The  variable  field  must  not  contain  a  decimal  point  ( ’ ). 
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ISUBC  *  Y  ±  a 


SHIFT*  Y  ±  a 


SETFWA  Y  ±  a 


SETLWA  Y  ±  a 


PXAIB  0,  k 


PXAID  0,  k 


PXAIL  0,  k 


PXAJB  0,  k 


PXAJD  0,  k 


PXAJL  0,  k 


Subtract  from  Constant 

The  accumulator  is  subtracted  from  the  value  Y  ±  a. 

The  Y  ±  a  of  these  commands  is  not  an  address  but 
instead  a  numeric  value  between  0  and  9999.  It  cannot 
be  a  fraction.  The  result  is  always  in  the  accumulator. 

Shift  Accumulator 

If  Y  ±  a  is  represented  as  a  decimal  integer  ADDR,  the 
accumulator  is  multiplied  by  10  to  the  AD  power  (left 
shift)  and  divided  by  10  to  the  DR  power  (right  shift). 

Set  First  Address  for  Trace 

An  internal  switch  is  set  so  that  during  the  trace  mode 
tracing  starts  after  the  execution  of  the  command  in 
location  Y  ±  a. 

Set  Last  Address  for  Trace 

The  address  at  which  tracing  will  terminate  is  set  to 
Y  ±  a. 

Place  Index  k  (i  Base)  in  Accumulator 

The  i  base  component  of  index  register  k  replaces  the 
contents  of  the  accumulator  as  a  positive  floating  point 
number. 

Place  Index  k  (i  Difference)  in  Accumulator 

The  i  difference  component  of  index  register  k  replaces 
the  contents  of  the  accumulator  as  a  positive  floating 
point  number. 

Place  Index  k  (i  Limit)  in  Accumulator 

The  i  limit  component  of  index  register  k  replaces  the 
contents  of  the  accumulator  as  a  positive  floating  point 
number. 

Place  Index  k  (j  Base)  in  Accumulator 

The  j  base  component  of  index  register  k  replaces  the 
contents  of  the  accumulator  as  a  positive  floating  point 
number. 

Place  Index  k  (j  Difference)  in  Accumulator 

The  j  difference  component  of  index  register  k  replaces 
the  contents  of  the  accumulator  as  a  positive  floating 
point  number. 

Place  Index  k  (j  Limit)  in  Accumulator 

The  j  limit  component  of  index  register  k  replaces  the 
contents  of  the  accumulator  as  a  positive  floating  point 
number. 


*The  variable  field  must  not  contain  a  decimal  point  (• ). 
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PAXIB 


0,k 


PAXID  0,  k 


PAXIL  0,  k 


PAXJB  0,  k 


PAXJD  0,  k 


PAXJL  0,  k 


XEQ  Y  ±  a 


Place  the  Accumulator  in  the  i  Base  Component  of  Index 

Register  k 

The  integral  portion  of  the  accumulator  is  copied  into 
the  base  component  of  index  register  k.  The  accumu¬ 
lator  is  unchanged. 

Place  the  Accumulator  in  the  i  Difference  Component  of 

Index  Register  k 

The  integral  portion  of  the  accumulator  is  copied  into 
the  i  difference  component  of  index  register  k.  The 
accumulator  is  unchanged. 

Place  the  Accumulator  in  the  i  Limit  Component  of  Index 

Register  k 

The  integral  portion  of  the  accumulator  is  copied  into 
the  i  limit  component  of  index  register  k.  The  accumu¬ 
lator  is  unchanged. 

Place  the  Accumulator  in  the  j  Base  Component  of  Index 

Register  k 

The  integral  portion  of  the  accumulator  is  copied  into 
the  j  base  component  of  index  register  k.  The  accumu¬ 
lator  is  unchanged. 

Place  the  Accumulator  in  the  j  Difference  Component  of 

Index  Register  k 

The  integral  portion  of  the  accumulator  is  copied  into  the 
j  difference  component  of  index  register  k.  The  accumu¬ 
lator  is  unchanged. 

Place  the  Accumulator  in  the  j  Limit  Component  of  Index 

Register  k 

The  integral  portion  of  the  accumulator  is  copied  into 
the  j  limit  component  of  index  register  k.  The  accumu¬ 
lator  is  unchanged. 


Execute 

Automatic  computation  is  begun  starting  at  effective 
location  Y  ±  a  under  the  guidance  of  the  SICOM  interpreter. 
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APPENDIX  B 


Below  are  listed  alphabetically  all  of  the  mnemonics  recognized  by  SICAP. 
The  +  notation  for  the  pseudo  operations  refers  the  reader  to  the  section  entitled 
SICOSAS  SPECIAL  PURPOSE  CARES.  Where  applicable,  the  original  seven-digit 
SICOM  numeric  format  is  included  as  well  as  a  page  reference  to  the  SICOM 
manual.  Finally,  for  each  mnemonic  operation,  a  page  in  Appendix  A  is  referenced 
where  a  complete  description  is  given. 


SICAP  SICOM  SICOM  SICOSAS 

MNEMONIC  FORMAT  MANUAL  PAGE  #  APPENDIX  A  PAGE  # 


ABS 

0  00 

0007 

24 

26 

ADD 

*K  30 

ADDR 

10 

20 

ADDC 

6  01 

ADDR 

33 

30 

ADM 

*K  32 

ADDR 

10 

20 

ATAN 

+ 

BLCLR 

K  00 

0025 

30 

28 

BLCPY 

K  00 

0024 

30 

28 

BSR 

0  00 

AD  19 

27 

27 

BSS 

4* 

CADM 

*K  20 

ADDR 

09 

19 

CALL 

*K  74 

ADDR 

22 

24 

CAS 

35 

ADDR 

10 

20 

CLA 

>^K  22 

ADDR 

09 

19 

CLAC 

1  01 

ADDR 

33 

30 

CLS 

’'K  31 

ADDR 

10 

19 

CLSC 

2  01 

ADDR 

33 

30 

CMPANR 

55 

ADDR 

18 

23 

DEC 

4“ 

DIB 

'"K  05 

ADDR 

07 

18 

DJB 

•“K  15 

ADDR 

08 

19 

DVP 

’-K  24 

ADDR 

09 

20 

DVPC 

4  01 

ADDR 

33 

30 

END 

+ 

EQU 

+ 

EXCH 

’^K  26 

ADDR 

09 

20 

EXP 

-1- 

EXTANR 

*K  57 

ADDR 

19 

23 

EXTR 

27 

ADDR 

09 

20 

FAST 

0  00 

0008 

24 

26 

ORPIN 

K  50 

ADDR 

15 

23 

HALTS 

0  00 

0003 

23 

25 

HALT4 

0  00 

0004 

23 

25 

HPRIN 

0  00 

0005 

24 

25 

IDVP 

*K  23 

ADDR 

09 

19 

IDVPC 

3  01 

ADDR 

33 

30 

IFLEX 

0  00 

0011 

25 

26 

Affected  by  relative  mode 
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SICAP  SICOM 

MNEMONIC  FORMAT 


SICOM 


MANUAL  PAGE 


SICOSAS 

APPENDIX  A  PAGE  # 


IIB 

*K  06 

ADDR 

08 

IJB 

*K  16 

ADDR 

08 

lOCTAL 

K  52 

ADDR 

17 

ISPEC 

0  00 

0029 

31 

ISUB 

*K  33 

ADDR 

10 

ISUBC 

8  01 

ADDR 

34 

ITAPE 

K  00 

0021 

28 

ITYPE 

0  00 

0013 

25A 

LDANR 

*K  54 

ADDR 

18 

LOG 

MASK 

MLAP 

MPY 

*K  25 

ADDR 

09 

MPYC 

5  01 

ADDR 

33 

MRGANR 

*K  56 

ADDR 

19 

NAME 

NOP 

0  00 

0000 

23 

OALPHA 

K  53 

ADDR 

17 

OCMND 

K  45 

ADDR 

12 

OCRTB 

K  43 

ADDR 

12 

OFLCR 

K  37 

ADDR 

11 

OFLEX 

0  00 

0012 

25A 

OFLTB 

K  36 

ADDR 

11 

OFORM 

K  42 

ADDR 

12 

OFXCR 

K  41 

ADDR 

11 

OFXTB 

K  40 

ADDR 

11 

OLOC 

0  00 

0075 

32 

OOCTAL 

K  00 

0027 

30 

OPRINT 

0  00 

0016 

25A 

ORG 

OSPEC 

K  00 

0028 

31 

OTAPE 

K  00 

0020 

27 

OTBNO 

K  44 

ADDR 

12 

OTYPE 

0  00 

0014 

25A 

PAXIB 

K  00 

0223 

29 

PAXID 

K  00 

0323 

29 

PAXIL 

K  00 

0423 

29 

PAXTB 

K  00 

1223 

29 

PAXJD 

K  00 

1323 

29 

PAXJL 

K  00 

1423 

29 

PUSTOP 

0  00 

0079 

32 

PXAIB 

K  00 

0222 

29 

PXAID 

K  00 

0322 

29 

PXAIL 

K  00 

0422 

29 

PXAJB 

K  00 

1222 

29 

PXAJD 

K  00 

1322 

29 

PXAJL 

K  00 

1422 

29 

RAD 

*K  34 

ADDR 

10 

REL 

0  00 

0006 

24 

■  Affected  by  relative  mode. 


19 

19 
23 
28 

20 

31 

27 
26 
23 
+ 

-h 

+ 

20 

30 

23 

+ 

25 
23 
21 
21 
21 

26 
21 
21 
21 
21 

29 

28 
2^ 

+ 

28 

27 

21 

26 

32 
32 
32 
32 
32 
32 

30 

31 
31 
31 
31 
31 
31 
20 
25 
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SICAP 

MNEMONIC 


SICOM 

FORMAT 


SICOM 

MANUAL  PAGE.  # 


SICOSAS 

APPENDIX  A  PAGE  # 


REW 

0 

00 

0019 

27 

27 

RMI 

0 

00 

0063 

32 

29 

RNR7 

0 

00 

0067 

32 

29 

RNZ 

0 

00 

0061 

31 

28 

RPL 

0 

00 

0062 

31 

29 

RSJl 

0 

00 

0071 

32 

29 

RSJ2 

0 

00 

0072 

32 

29 

RSJ3 

0 

00 

0073 

32 

29 

RSM4 

0 

00 

0064 

32 

29 

RSM5 

0 

00 

0065 

32 

29 

RSM6 

0 

00 

0066 

32 

29 

RSR 

0 

00 

0070 

32 

29 

RZE 

0 

00 

0060 

31 

28 

SELBCD 

0 

00 

0017 

26 

26 

SELBIN 

K 

00 

0018 

27 

26 

SETFWA 

Y 

01 

ADDR 

34 

31 

SETLWA 

z 

01 

ADDR 

34 

31 

SHIFT 

9 

01 

ADDR 

34 

31 

SIB 

K 

02 

ADDR 

07 

18 

SICAP 

+ 

SID 

K 

03 

ADDR 

07 

18 

SIL 

K 

04 

ADDR 

07 

18 

SIN 

+ 

SJB 

K 

12 

ADDR 

08 

19 

SJD 

K 

13 

ADDR 

08 

19 

SJL 

K 

14 

ADDR 

08 

19 

SNGIN 

K 

51 

ADDR 

17 

23 

SQR 

+ 

SRFILE 

K 

47 

ADDR 

13 

22 

STO 

*K 

77 

ADDR 

22 

25 

STOANR 

*K 

76 

ADDR 

22 

25 

STOPl 

0 

00 

0001 

23 

25 

STOP2 

0 

00 

0002 

23 

25 

SUB 

*K 

31 

ADDR 

10 

20 

SUBC 

7 

01 

ADDR 

33 

30 

TBR 

K 

75 

ADDR 

22 

25 

TMI 

♦K 

63 

ADDR 

21 

24 

TNR7 

K 

67 

ADDR 

21 

24 

TNZ 

*K 

61 

ADDR 

20 

23 

TPL 

*K 

62 

ADDR 

21 

23 

TRACE 

0 

00 

0009 

24 

26 

TSJl 

*K 

71 

ADDR 

21 

24 

TSJ2 

*K 

72 

ADDR 

22 

24 

TSJ3 

*K 

73 

ADDR 

22 

24 

TSM4 

*K 

64 

ADDR 

21 

24 

TSM5 

*K 

65 

ADDR 

21 

24 

TSM6 

*K 

66 

ADDR 

21 

24 

*  Affected  by  relative  mode. 
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SICAP 

SICOM 

SICOM 

SICOSAS 

MNEMONIC 

FORMAT 

MANUAL  PAGE  # 

APPENDIX  A  PAGE  # 

TSR 

K  70  ADDR 

2.1 

24 

TZE 

*K60  ADDR 

20 

23 

WRFILE 

K46  ADDR 

12 

22 

XEQ 

X  0  .1  ADDR 

34 

32 

ZEROIR 

0  00  0010 

25 

26 

*(CoL  1) 


^Affected  by  relative  mode. 
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APPENDIX  C 


Below  is  341  alphabetized  list  of  mnemonic  operation  codes  and  pseudo  operation 
codes  recognized  by  MLAP  (Machine  Language  Assembly  Program). 

The  referenced  page  number  for  the  machine  instructions  is  to  Control  Data 
160-A  Computer,  Programming  Manual,  #  145A. 

The  *  notation  for  the  "relative"  instructions  refers  the  reader  to  page  27  of 
CDC  Publication  #  507  OSAS/A,  The  160-A  Assembly  System. 

The  +  notation  for  the  pseudo  operations  recognized  by  MLAP  refers  the  reader 
to  the  section  entitled  SICOSAS  SPECIAL  PURPOSE  CARDS. 

In  the  Y  ±  a  notation,  Y  may  be  either  symbolic  or  absolute.  If  absolute,  Y  will 
be  considered  either  decimal  or  octal  depending  on  the  current  mode  of  MLAP.  (See 
MLAP  card  in  Appendix  D. )  The  additive  field  "a"  may  be  used  only  if  Y  is  symbolic 
and  must  be  an  absolute  integer  either  octal  or  decimal  again  depending  on  the  current 
mode  of  MLAP. 
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ACJ 

Y  ±  a 

Set  direct,  indirect,  and  relative  bank 
control  and  jump 

36 

ADB 

Y  ±  a 

Add  backward. 

30 

ADC 

Y  ±a 

Add  constant. 

30 

ADD 

Y  ±  a 

Add  direct. 

30 

ADF 

Y  ±  a 

Add  forward. 

30 

ADI 

Y  ±a 

Add  indirect. 

30 

ADM 

Y  ±  a 

Add  memory. 

30 

ADN 

Y  ±  a 

Add  no  address. 

30 

ADR 

Y  ±  a 

Add  relative. 

* 

ADS 

Add  specific. 

30 

AOB 

Y  ±  a 

Replace  add  one  backward. 

32 

AOC 

Y  ±  a 

Replace  add  one  constant. 

32 

AOD 

Y  ±  a 

Replace  add  one  direct. 

32 

AOF 

Y  ±  a 

Replace  add  one  forward. 

32 

AOI 

Y  ±  a 

Replace  add  one  indirect. 

32 

AOM 

Y  ±  a 

Replace  add  one  memory. 

32 

AOR 

Y  ±  a 

Replace  add  one  relative. 

* 

AOS 

Replace  add  one  specific. 

32 
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ATE 

Y  ±  a 

A  to  buffer  entrance  register. 

25 

ATX 

Y  ±  a 

A  to  buffer  exit  register. 

25 

BLS 

Y  ±  a 

Block  store. 

24 

BSS 

Block  starting  with  symbol. 

+ 

CBC 

Clear  buffer  controls 

39 

CIL 

Clear  interrupt  lockout. 

40 

CTA 

Bank  controls  to  A. 

26 

DRJ 

Y  ±  a 

Set  direct  and  relative  bank  control 
and  jump. 

36 

END 

End  compilation 

+ 

EQU 

Equality 

+ 

ETA 

Buffer  entrance  register  to  A 

25 

ERR 

Error  stop. 

45 

EXC 

Y  ±  a 

External  function  constant. 

44 

EXF 

Y  ±  a 

External  function  forward. 

44 

HLT 

Halt 

45 

HWI 

Y  ±  a 

Half  write  indirect. 

29 

IBI 

Y  ±  a 

Initiate  buffer  input. 

40 

IBO 

Y  ±  a 

Initiate  buffer  output. 

41 

INA 

Input  to  A. 

43 

IRJ 

Y  ±  a 

Set  indirect  and  relative  bank  control 
and  jump. 

36 

JFI 

Y  ±  a 

Jump  forward  indirect. 

39 

JPI 

Y  ±  a 

Jump  indirect. 

38 

JPR 

Y  ±  a 

Return  jump. 

38 

LCB 

Y  ±  a 

Load  complement  backward. 

28 

LCC 

Y  ±  a 

Load  complement  constant. 

28 

LCD 

Y  ±  a 

Load  complement  direct. 

28 

LCF 

Y  ±  a 

Load  complement  forward. 

28 

LCI 

Y  ±  a 

Load  complement  indirect. 

28 

LCM 

Y  ±  a 

Load  complement  memory. 

28 

LCN 

Y  ±  a 

Load  complement  no  address. 

28 

LCR 

Y  ±  a 

Load  complement  relative. 

* 
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LCS 

Load  complement  specific. 

28 

LDB 

Y  ±  a 

Load  backward. 

27 

LOG 

Y  ±  a 

Load  constant. 

27 

LDD 

Y  ±  a 

Load  direct. 

27 

LDF 

Y  ±  a 

Load  forward. 

27 

LDI 

Y  ±  a 

Load  indirect. 

27 

LDM 

Y  ±  a 

Load  memory. 

27 

LDN 

Y  ±  a 

Load  no  address. 

27 

LDR 

Y  ±  a 

Load  relative. 

* 

LDS 

Load  specific. 

27 

LPB 

Y  ±  a 

Logical  product  backward. 

34 

LPC 

Y  ±  a 

Logical  product  constant. 

34 

LPD 

Y  -i  a 

Logical  product  direct. 

34 

LPF 

Y  ±  a 

Logical  product  forward. 

34 

LPI 

Y  ±  a 

Logical  product  indirect. 

34 

LPM 

Y  ±  a 

Logical  product  memory. 

34 

LPN 

Y  ±  a 

Logical  product  no  address. 

34 

LPR 

Y  ±  a 

Logical  product  relative 

* 

LPS 

Logical  product  specific. 

34 

LSB 

Y  ±  a  (SCB) 

Logical  sum  backward. 

35 

LSD 

Y  ±  a  (SCD) 

Logical  sum  direct. 

35 

LSF 

Y  ±  a  (SCF) 

Logical  sum  forward. 

35 

LSI 

Y  ±  a  (SCI) 

Logical  sum  indirect. 

35 

LSN 

Y  ±  a  (SCN) 

Logical  sum  no  address. 

35 

LSR 

Y  ±  a  (SCR) 

Logical  sum  relative. 

* 

LSI 

Left  shift  one. 

32 

LS2 

Left  shift  two. 

32 

LS3 

Left  shift  three. 

32 

LS6 

Left  shift  six. 

32 

MLAP 

Set  SICOSAS  to  MLAP  mode. 

+ 

MUH 

Multiply  A  by  one  hundred. 

30 

MUT 

Multiply  A  by  ten. 

29 

NAME 

(Name  card) 

+ 

NJB 

Y  ±  a 

Negative  jump  backward. 

37 

39 
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NJF 

Y  ±  a 

Negative  jump  forward. 

37 

NJR 

Y  ±  a 

Negative  jump  relative. 

>K 

NOP 

Y  ±  a 

No  operation. 

45 

NZB 

Y  ±  a 

Non-zero  jump  backward. 

37 

NZF 

Y  ±  a 

Non-zero  jump  forward. 

37 

NZR 

Y  ±  a 

Non-zero  jump  relative. 

* 

ORG 

Origin 

+ 

OTA 

Output  from  A. 

43 

OTN 

Y  ±  a 

Output  no  address. 

43 

OUT 

Y  ±  a 

Output 

41 

PJB 

Y  ±  a 

Positive  jump  backward. 

37 

PJF 

Y  ±  a 

Positive  jump  forward. 

37 

PJR 

Y  ±  a 

Positive  jump  relative. 

* 

PTA 

Transfer  P  to  A. 

24 

RAB 

Y  ±  a 

Replace  add  backward. 

31 

RAC 

Y  ±  a 

Replace  add  constant. 

31 

RAD 

Y  ±  a 

Replace  add  direct. 

31 

RAF 

Y  ±  a 

Replace  add  forward. 

31 

RAI 

Y  ±  a 

Replace  add  indirect. 

31 

RAM 

Y  ±  a 

Replace  add  memory. 

31 

RAR 

Y  ±  a 

Replace  add  relative. 

* 

RAS 

Replace  add  specific. 

31 

RETURN 

Return  to  SICAP. 

+ 

RSI 

Right  dhift  one. 

32 

RS2 

Right  shift  two. 

32 

SICAP 

Set  SICOSAS  to  SICAP  mode. 

+ 

SSB 

Y  ±  a 

Subtract  backward. 

30 

SBC 

Y  ±  a 

Subtract  constant. 

30 

SBD 

Y  ±  a 

Subtract  direct. 

30 

SBF 

Y  ±  a 

Subtract  forward. 

30 

SBI 

Y  ±  a 

Subtract  indirect. 

30 

SBM 

Y  ±  a 

Subtract  memory. 

30 

SBN 

Y  ±  a 

Subtract  no  address. 

30 

SBR 

Y  ±  a 

Subtract  relative. 

* 
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SBS 

Subtract  specific. 

30 

SBU 

Y  ±  a 

Set  buffer  bank  control. 

36 

SCB 

Y  ±  a  (LSB) 

Selective  complement  backward. 

35 

see 

Y  ±  a 

Selective  complement  constant. 

35 

see 

Y  ±  a  (LSD) 

Selective  complement  direct. 

35 

seF 

Y  ±  a  (LSF) 

Selective  complement  forward. 

35 

sei 

Y  ±  a  (LSI) 

Selective  complement  indirect. 

35 

seM 

Y  ±  a 

Selective  complement  memory. 

35 

seN 

Y  ±  a  (LSN) 

Selective  complement  no  address. 

35 

seR 

Y  ±  a  (LSR) 

Selective  complement  relative. 

♦ 

ses 

Selective  complement  specific. 

35 

sue 

Y  ±  a 

Set  direct  bank  control 

36 

sie 

Y  ±  a 

Set  indirect  bank  control. 

36 

SID 

Y  ±  a 

Set  indirect  and  direct  bank  control. 

36 

SLJ 

Y  ±  a 

Selective  jump. 

45 

SLS 

Y  ±  a 

Selective  stop. 

45 

SJS 

Y  ±  a 

Selective  stop  and  jump. 

45 

SRB 

Y  ±  a 

Shift  replace  backward. 

33 

SRe 

Y  ±  a 

Shift  replace  constant. 

33 

SRD 

Y  ±  a 

Shift  replace  direct. 

33 

SRF 

Y  ±  a 

Shift  replace  forward. 

33 

SRI 

Y  ±  a 

Shift  replace  indirect. 

33 

SRJ 

Y  ±  a 

Set  relative  bank  control  and  jump. 

36 

SRM 

Y  ±  a 

Shift  replace  memory. 

33 

SRR 

Y  ±  a 

Shift  replace  relative. 

♦ 

SRS 

Shift  replace  specific 

33 

STB 

Y  ±  a 

Store  backward. 

28 

STe 

Y  ±  a 

Store  constant. 

28 

STD 

Y  ±  a 

Store  direct. 

28 

STE 

Y  ±  a 

Store  buffer  entrance  register  at  Location  6X 
and  transfer  A  to  buffer  entrance  register. 

27 

STF 

Y  ±  a 

Store  forward. 

28 

STI 

Y  ±  a 

Store  indirect. 

28 

STM 

Y  ±  a 

Store  memory. 

28 
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STP 

Y  ±  a 

Store  P  at  location  5X. 

26 

STR 

Y  ±  a 

Store  relative. 

* 

STS 

Store  specific. 

28 

ZJB 

Y  ±  a 

Zero  jump  backward. 

37 

ZJF 

Y  ±  a 

Zero  jump  forward. 

37 

ZJR 

Y  ±  a 

Zero  jump  relative. 

* 

*(CoL  1) 
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THIS  IS  A  7B93  TRANSFORMATION  OF  A  SICOM  PROGRAM  WRITTEN  FOR  THE  160-A  COMPUTER  BY  ANYONE  U.  WISH  SEC. 20,1962 
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0656  7301  OUT  1  OUTPUT  LOCATION  RHO+3 

0657  0363  RHO+3 

0660  RETURN  BACK  TO  MAIN  PROGRAM 

010?  END  BEGIN 


*  THIS  PROGRAM  10407)  ACCEPTS  SYMBOLIC  CODING  IN  BOTH  A  PSEUDO  SICOM 
»  LANGUAGE  AND  160-A  MACHINE  LANGUAGE  AND  PRODUCES  A  PROGRAM  LISTING 


*  THE  160-A  COMPUTER  FOR  EXECUTION 
»  PROGRAM  TAPES.. o 

»  THIS  PROGRAM  (LAC?)  ACCEPTS  SYMBOLIC  CODING  IN  BOTH  A  PSEUDO  SICOM 


«- 

LANGUAGE 

AND  160 

-A  MACHINE  LANGUAGE  AND  PRODUCES  A  PROGRAM  LISTING 

it 

AND  A  BINARY  MAP 

OF  THE  PROGRAM 

ON  MAGNETIC  TAPE  WHICH  READS  INTO 

a 

THE  160- 

A  COMPUTER  FOR  EXECUTION. 

PROGRAM 

TAPES... 

A7  HI  DENSITY.. 

PROGRAM  LISTING. .PRINT  PROGRAM  CONTROL. 

B7  HI  DENSITY.. 

PROGRAM  MEDIARY  TAPE. 

ft 

A8  HI  DENSITY.. 

INPUT  TAPE  IF  INPUT  IS  PRESTORED. 

ft 

B8  LC  DENSITY.. 

BINARY  MAP  OF  ASSEMBLED  PROGRAM. 

ORG 

15200 

START 

HPR 

CTPEND 

CTPEND 

+  1 

STL 

22 

+4 

SWT 

1 

CARD  OR  TAPE  INPUT 

+  5 

TRA 

SETOFF 

TAPE 

+  6 

STZ 

ONOFF 

CARD 

+  7 

STZ 

MODE 

+  8 

CLA 

CARD 

+  9 

STO 

INUNIT 

+  10 

TRA 

NCWIN 

SETOFF 

STL 

ONOFF 

+  1 

CLA 

INTAPE 

+2 

STO 

INUNIT 

I  IMAGE 

INPUT, ,28 

NOWIN 

STL 

43 

OIMAGE 

OUTPUT,, 28 

+  4 

STL 

22 

IFILE 

READl 

+  8 

STL 

43 

♦  11 

AXT 

20,4 

+  12 

CLA 

NAME+20,4 

+  13 

STO 

HEADl+20,4 

+  14 

TIX 

*-2,4,1 

ISCRIB 

INUNIT 

READ! 

STL 

43 

IFILE 

READ2 

+  4 

STL 

43 

+  7 

AXT 

0,1 

COUNT  SYMBOLS 

ICHAR 

ALLBNK,  ,2 

NO  SYMBOL 

+  8 

STL 

43 

ICHAR 

ISSYM,,  13 

NOT  BLANK  IN  COLS  1-6 

+  12 

STL 

43 

♦  16 

CLA 

ATE 

+  17 

STO 

ICNTR 

ISCRIB 

INUNIT 

READ2 

STL 

43 

IBCW 

WORK, ,1,14 

+  4 

STL 

43 

+  8 

STZ 

TEMP 

CBCW 

WORK,, 1, 14 

APPENDIX  F 
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+  9 

STL 

CSCRIB 

+  13 

STL 

IBCC 

SKIP 

STL 

+  4 

CLA 

+  5 

SUB 

+  6 

TZE 

IBCW 

+  7 

STL 

+  1  1 

CLA 

+  12 

CAS 

+  13 

TRA 

+  14 

TRA 

+  15 

CAS 

+  16 

TRA 

+  17 

TRA 

+  18 

CAS 

+  19 

TRA 

+20 

TRA 

+21 

CAS 

+22 

TRA 

+  23 

TRA 

+24 

CAS 

+25 

TRA 

+26 

TRA 

+27 

CAS 

+28 

TRA 

+29 

TRA 

+  30 

TRA 

+31 

STZ 

+32 

TRA 

CASGOB 

CAS 

+  1 

TRA 

+  2 

TRA 

+  3 

TRA 

+  4 

CLA 

+  5 

ADD 

+  6 

STO 

+  7 

TRA 

CAS160 

CAS 

+ 1 

TRA 

+  2 

TRA 

+  3 

TRA 

+  4 

STL 

+  5 

TRA 

CASNAM 

CAS 

+  1 

TRA 

+  2 

TRA 

+  3 

TRA 

IBCW 

+  4 

STL 

+  8 

TRA 

CASCRG 

CAS 

22 

NEDTAP 

22 

TE^^P,  ,1,1 
43 

TEMP 
STAR 
READ2 
CODE,  ,8, 1 
43 

CCDE 

SSCR 

**2 

FCRSGR  ’ 

SLOG 

»+2 

FCRLCG 

SEXP 

»+2 

FCREXP 

SSIN 

*♦2 

FCRSIN 

SATN 

*+2 

FCRATN 

SICCM 

CASGOB 

*♦2 

CASGOB 

MODE 

READ2 

GCBACK 

CAS160 

*+2 

CAS160 

ICNTR 

l^C 

ICNTR 

ISOP 

160A 

CASNAM 

**2 

CASNAM 

MODE 

READ2 

NAMER 

CASCRG 

*♦2 

CASCRG 

HEADl+14, ,16,6 
43 

READ2 

ORIGIN 


WHAT  KIND  OF  CARO 

TEST  FOR  COMMENT 

IS  COMMEN  IGNORE  IT 
LOOK  AT  OPCODE 


IS  SICOM  CARD 

CHECK  RETURN  CARD 
IS  IGNORE  FIRST 


MACHINE  MODE 
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+ 1 

TRA 

»+2 

+  2 

TRA 

ISORG 

+  3 

CAS 

DECDAT 

+  4 

TRA 
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CAS 
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TRA 

ISDEC 

+  9 
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STO 
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SLT 

1 

+  6 
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READ2 

+  7 
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ALLBNK+1 

IBCW 

SYMTAB, 1, 1, 1 

ISSYM 

STL 

43 

+4 

CLA 

ICNTR 

+  5 

STO 

LCCTAB, 1 

+  6 

TXI 

*+l» lf-1 

+  7 

SXA 

SYMCNT, 1 

+  8 
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ICNTR 

AGN 
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TWO 

+  1 
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+  2 
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+  3 

STO 

ICNTR 

+  4 

SLT 

1 

♦  5 

TRA 

READ2 

+6 

TRA 

AGN 

IBCW 

SYMTAB, 1,1,1 

ISBSS 

STL 

43 

+4 

CLA 

ICNTR 

♦  5 

STO 

LCCTAB,! 

LOOK  FOR  SYMBOL 

MACHINE  LOCATION  COUNTER 

WAS  THIS  DEC  DATA  CARO 
NO 


-SYMBOL  COUNT 


WAS  DEC  DATA 
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+  6 

TXI 

*+  1 , 1 1 

+  7 

SXA 

SYMCNT, 1 

IINT 

TEMP+i, 

+  8 

STL 

43 

+  12 

CLA 

TEMP+3 

+  13 

ZET 

MODE 

+  14 

TRA 

*  +  2 

+  15 

ALS 

1 

+  16 

ADD 

ICNTR 

+  17 

STO 

ICNTR 

+  18 

TRA 

READ2 

IINT 

ICNTR, , 

ISCRG 

STL 

43 

+  4 

CLA 

ICNTR 

+  5 

ALS 

1 

+6 

STO 

ICNTR 

+  7 

TRA 

READ2 

ISDEC 

ZET 

MODE 

+  1 

TRA 

I  SOP 

+  2 

SLN 

1 

+  3 

TSX 

EVENUP,4 

+  4 

TRA 

ISCP 

MAKE  AN  EVEN  MACHINE  LOCATION 
2XSIC0M  LOC  =  MACHINE  LOCATION 


IBCW 


DYNAMO,, 16, I 


IND 

STL 

43 

+  4 

REWB 

7 

+5 

TSX 

FN0SYM,4 

+  6 

TNZ 

*+2 

+  7 

CLA 

LCCTAB 

+  8 

ARS 

1 

+  9 

STA 

GC2 

+  10 

CLA 

ATE 

+  11 

STO 

ICNTR 

C8LANK 

120,,  1 

+  12 

STL 

CREADY 

22 

+  15 

STL 

22 

GELANK 

120,,  1 

+  17 

STL 

22 

CEOR 

DUMP,, 132 

+20 

STL 

22 

IFILE 

NOKGC 

+24 

STL 

43 

+27 

AXT 

4096,4 

+28 

STZ 

SIMAP+4096,4 

+  29 

TIX 

*-1,4, 1 

+  30 

AXT 

56,4 

+  31 

CLA 

BLANK 

+  32 

STO 

INPUT+56,4 

+  33 

TIX 

*-1,4,1 

+  34 

WPDA 

+35 

SPRA 

1 

CHEAO 

CASE  1 , , 1 , , 1 

+36 

STL 

22 

+4  1 

STZ 

PAGENC 
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+42 

STZ 

MCDE 

I^AGEI 

ECU 

CUTPUT+21 

IKAGE2 

ECU 

IRAGEl+28 

ICHAR 

0 

“4 

STL 

43 

ISCRIB 

REDTAP 

KCKGC 

STL 

IREADY 

43 

+  4 

STL 

43 

IBCW 

TEMP,, 8,1 

+6 

STL 

43 

+  10 

CLA 

TEMP 

+  1  1 

SUB 

BLANK 

+  12 

TZE 

IREADY 

NCWGO 

+  13 

STL 

43 

IFILE 

CYCLE 

+  15 

STL 

43 

+  18 

CLA 

ONE 

+  19 

STO 

NUMBER 

ISCRIB 

MED TAP 

CYCLE 

STL 

43 

IBCW 

WORK, ,1,12 

+4 

STL 

43 

OBCW 

WORK, ,28, 12 

+  8 

STL 

22 

OINT 

NUMBER,, 1 15 

+  12 

STL 

22 

+  16 

CLA 

NUMBER 

+  17 

ADO 

ONE 

+  18 

STO 

NUMBER 

+  19 

STZ 

TEMP 

IBCC 

TEMP,, 1,1 

+20 

STL 

43 

+24 

CLA 

TEMP 

+25 

SUB 

STAR 

+26 

TZE 

CMTCRO 

IBCW 

CODE, ,8,1 

+27 

STL 

43 

+31 

CLA 

CCDE 

+32 

CAS 

SSQR 

+  33 

TRA 

*♦2 

+34 

TRA 

SCRFCR 

+  35 

CAS 

SLOG 

+36 

TRA 

*♦2 

+37 

TRA 

LCGFCR 

+  38 

CAS 

SEXP 

+39 

TRA 

**2 

+40 

TRA 

EXPFCR 

+41 

CAS 

SSIN 

+42 

TRA 

•  ♦2 

+43 

TRA 

SINFOR 

+44 

CAS 

SATN 

+45 

TRA 

*♦2 

COLS  121-126  OF  OUTRAN  REGIONS 


TEST  FOR  COMMENT  CARO 


FOUND  ONE 
TEST  NOW  FOR 
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+  46 

TAA 

ATNFCR 

+4  7 

CAS 

siccy 

+48 

TKA 

Z1 

+49 

TRA 

«+2 

+50 

TRA 

Z1 

+51 

STZ 

MCOE 

+  52 

STZ 

IKCDE 

+  53 

TRA 

Cf'TCRO 

Z1 

CAS 

GCBACK 

+  1 

TRA 

Z2 

+  2 

TRA 

FCRART  FOUND  A  RETURN  CARD 

12 

CAS 

160A 

+  \ 

TRA 

Z3 

+  2 

TRA 

*+2 

+3 

TRA 

Z3 

+  4 

STL 

MODE 

I  CHAR 

0 

+5 

STL 

43 

ICHAR 

YISOCT,  ,8 

+  9 

STL 

43 

IINT 

^(EWTE^^,,16♦6 

+  13 

STL 

43 

+  17 

STZ 

INODE 

+  18 

TRA 

CMTCRD 

ICHAR 

0 

VISOCT 

STL 

43 

+  4 

STL 

INODE 

+  5 

TRA 

CNTCRC 

13 

CAS 

OCTAL 

+  1 

TRA 

Z4 

+  2 

TRA 

CCTCRD 

24 

CAS 

BLANK 

+  1 

TRA 

Z5 

+  2 

TRA 

8NKCRC 

25 

CAS 

NANER 

+  1 

TRA 

*+2 

+  2 

TRA 

CYCLEX 

+  3 

CAS 

ORIGIN  ORIGIN  CARD 

+  4 

TRA 

«  +  2 

+  5 

TRA 

CRGCRC 

+  6 

CAS 

DECCAT  DEC  DATA  CARD 

+  7 

TRA 

»+2 

+  8 

TRA 

DATCRD 

+  9 

CAS 

EXTNSK 

+  10 

TRA 

BSSCAS 

+  11 

TRA 

*  +  2 

+  12 

TRA 

BSSCAS 

+  13 

STL 

MASKER 

+  14 

TRA 

DATCRD 

CYCLEX 

CLA 

NUMBER 

+  1 

SUB 

ONE 

+  2 

STO 

NUMBER 

+  3 

TRA 

CYCLE 

BSSCAS 

CAS 

BSS 
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+ 1 

TRA 

**2 

+  2 

TRA 

BSSCRD 

+  3 

CAS 

ECU 

EQU 

CARD 

+  4 

TRA 

*♦2 

+  5 

TRA 

ECUCRD 

+  6 

CAS 

END 

END 

CARO 

+  7 

TRA 

*+2 

+  8 

TRA 

ENOCRD 

+  9 

NZT 

MODE 

+  10 

TRA 

STABLE 

+  11 

AXT 

LSTINS-MINSTR,  1 

IS 

MACHINE  CODE 

GOLOOK 

CAS 

LSTINS,  1 

+  1 

TRA 

*+2 

+2 

TRA 

THANX 

+  3 

TIX 

GCLOOK,  1, 1 

+  4 

TRA 

BAOCOO 

THANX 

CLA 

LSTINS,  1 

+  1 

STO 

RITEOP 

+2 

CLA 

LSTKEY, 1 

+  3 

STO 

RITEKY 

+4 

LAC 

RITEKY,2 

+  5 

TRA* 

AFORK, 2 

AFORK 

PZE 

0TYPE 

EG 

BLS 

0100  YYYY 

+  1 

PZE 

ITYPE 

EG 

PTA 

0101 

+2 

PZE 

2TYPE 

EG 

STP 

01SX 

+  3 

PZE 

3TYPE 

EG 

LDN 

04XX 

+4 

PZE 

4TYPE 

EG 

SLJ 

77X0 

+5 

PZE 

5TYPE 

RELATIVE 

STABLE 

AXT 

ENDCP-OPCODE, 1 

CM PC CO 

CAS 

ENDCP.l 

FIND  CORRECT  CODE  IN  TABLE 

+  1 

TRA 

*+2 

+2 

TRA 

FNOCP 

MATCHED 

+3 

TIX 

CMPCOD,  1,  1 

+  4 

TRA 

BAOCOO 

FNDOP 

CLA 

ENOCP,  1 

+  1 

STO 

RITEOP 

+2 

CLA 

ENDKEYfl 

+  3 

STO 

RITEKY 

+  4 

LAC 

RITEKY, 2 

+  5 

TRA* 

FORK, 2 

FORK 

PZE 

TYPE0 

KOPADDR 

E.G.  CLA  MPY  ETC 

+  l 

PZE 

TYPEl 

CP= 

DR 

E.G.  NOP  TMK5 

+2 

PZE 

TYPE2 

K 

D18 

SEL  MAG  TAPE 

+  3 

PZE 

TYPES 

K 

DR 

E.G.  BLOCK  COPY 

+  4 

PZE 

TYPE4 

AD  19  BACKSPACE 

+  5 

PZE 

TYPES 

K00AD2R 

PXA  PAX 

+  6 

PZE 

TYPE6 

KOP 

=OP 

EG  CLAC  GO  ETC 

I  CHAR 

YESSYM,,8 

TYPE0 

STL 

43 

IINT 

SIAD0R,,16,6 

+  4 

STL 

43 

I  CHAR 

0 

+  8 

STL 

43 

+  12 

TSX 

VARFRM,4 
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+  13 

NOP 

+  14 

TRA 

NOPE 

I  CHAR 

0 

YESSYM 

STL 

43 

+  4 

TSX 

FNDSYM,4 

+  5 

ARS 

1 

+  6 

STO 

SIACOR 

+  7 

SLT 

2 

WAS  IT  AC  SYMBOL 

+  8 

TRA 

NOPE 

NO 

+  9 

CAL 

ACL  I  ST 

$00000 

+  10 

CRS 

RITEKY 

+  11 

SLN 

2 

FOR  BINARY  ROUTINE 

+  12 

TRA 

TSXS 

NOPE 

CAL 

INOEXR 

+  1 

CRS 

RITEKY 

TSXS 

TSX 

ST0K0P,4 

ALf'ST0 

TSX 

CNVSAD,4 

SET  UP  HOLLERITH  ADDR 

ASIF0 

TSX 

0KT0DR,4 

MOVE  K  OP  ADDR  TO  OUTRAN  OUTPUT  REGI10 

+  1 

TSX 

LCCRCH,4 

PUT  MACHINE  LOCATION  IN  OUTRAN  REGION 

+  2 

TSX 

LCCSIC,4 

PUT  SICOM  LOCATION  IN  OUTPUT  REGION 

+  3 

TSX 

WRLIST,4 

WRITE  ONE  LINE  ON  LISTING  TAPE 

+  4 

SLT 

3 

+  5 

TRA 

GCAHED 

+  6 

CLA 

RETURN 

+  7 

ADD 

ONE 

+  8 

STA 

*+l 

+  9 

TRA 

•  «0 

GOAHED 

TSX 

ST0CMD,4 

REBACK 

CLA 

ICNTR 

+  1 

ADO 

TWO 

+2 

ZET 

MODE 

+  3 

SOB 

ONE 

+  4 

STO 

ICNTR 

+  5 

SLT 

1 

+  6 

TRA 

CYCLE 

+  7 

TRA 

REBACK+1 

TYPEl 

AXT 

5,4 

ZERO  K  0  P  A  0  FOR  TYPE  I  INSTR 

+  1 

STZ 

K+5,4 

+2 

TIX 

*-1,4,1 

+3 

CLA 

ZERO 

+  4 

LOQ 

RITEKY 

+5 

RQL 

6 

+  6 

LGL 

6 

+  7 

STO 

D2 

+  8 

CLA 

ZERO 

+  9 

LGL 

6 

+  10 

STO 

R 

+  1  1 

TSX 

0KT0DR,4 

MOVE  00000OR  TO  OUTPUT  REGION 

+  12 

TSX 

LCCNCH,4 

+  13 

TSX 

LGCSIC,4 

+  14 

TSX 

WRLIST,4 

+  15 

LDQ 

02 

+  16 

MPY 

DECNAL+2 

+  17 

XCA 
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,  Jb 

A i 

H 

+ 1 9 

STC 

SIADDR 

*20 

ISX 

STCC^^CJ4 

*2  3 

TKA 

REBACK 

'rPC2 

ST2 

0 

'*  1, 

STZ 

P 

’*■  2 

STZ 

A 

^■3 

ClA 

ONE 

i  4 

STC 

D2 

f  b 

CLA 

AIE 

+  6 

STQ 

R 

+  ? 

ISX 

VARFKM,4 

6 

KOP 

If'ASK 

0 

t  y 

STL 

43 

+  13 

LDQ 

D  3 

+  3  4 

jv  pY 

CF.CN  AL4  1 

+ 1  b 

STQ 

TEMP 

4  16 

LUQ 

C2 

4  1  7 

^/pY 

Ot'CMAL  +  2 

4  1  8 

XCA 

+  19 

ADD 

R 

+  2  0 

ACO 

TEMP 

+2  1 

STO 

SIACDK 

42  2 

IRA 

ASIF0 

'PE3 

TSX 

WIPE,  4 

4  3 

TSX 

VARFRM,4 

4  2 

NOP 

4  3 

LDQ 

RITEKY 

+  4 

CLA 

ZCRC 

+  5 

RCL 

6 

+  6 

LGL 

6 

4  7 

STC 

02 

+  8 

CLA 

ZEHC 

+  9 

LCL 

6 

4  }  0 

STO 

R 

43  1 

LDQ 

C2 

412 

r'PY 

0ECMAL42 

4  33 

XCA 

4  14 

ADD 

R 

435 

STC 

SIACCR 

4  ]  h 

TKA 

ASIF0 

PE4 

TSX 

WIPE,  4 

+  3 

CLA 

ONE 

42 

STO 

D2 

43 

CLA 

NINE 

+4 

STO 

R 

I INT 

AO,,  16 

45 

STL 

43 

49 

LDQ 

AC 

4  30 

CLA 

ZERC 

43  1 

CVH 

DECKAL42 

432 

STQ 

A 

4!3 

STO 

Dl 

CCi\E  this  card 
SEL  KAC  tape 


BACKSPACE  AD19 
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+  1U 

XCA 

+  15 

ALS 

3 

+  16 

STO 

K 

+  17 

LDQ 

01 

+  18 

MPY 

DECMAL+1 

+  19 

XCA 

+20 

ADD 

019 

+21 

STO 

SIADDR 

+22 

TRA 

ASIF0 

TYPES 

TSX 

WIPE, 4 

PAX,PXA  22  OR  23 

+  1 

TSX 

VARFRM,4 

+  2 

NOP 

+  3 

CLA 

TWO 

+  4 

STO 

D2 

+5 

LDQ 

RITEKY 

+  6 

CLA 

ZERO 

+  7 

IGL 

6 

+  8 

STO 

A 

+  9 

CLA 

ZERO 

+  10 

LGL 

6 

+  11 

STO 

Dl 

+  12 

CLA 

ZERO 

+  13 

LGL 

6 

+  14 

STO 

R 

+  15 

A  XT 

3,4 

LDCA 

LDQ 

A  +  3,4 

+  1 

PPY 

DECKAL+3,4 

+  2 

STQ 

TEMP+3,4 

+  3 

TIX 

L0QA,4,1 

+  4 

CLA 

R 

+  5 

ADO 

TEMP 

+  6 

ADD 

TEMP+1 

+  7 

ADD 

TEMP+2 

+  8 

STO 

SIADDR 

+  9 

TRA 

ASIF0 

TYPE6 

TSX 

WIPEf4 

KOP  =  OP  ADDR 

+  1 

AXT 

3,4 

+  2 

LDQ 

RITEKY 

LOOP 

CLA 

ZERO 

+  1 

LGL 

6 

+  2 

STO 

K+3,4 

+  3 

TIX 

LOOP, 4, 1 

I  CHAR 

NOTK,  ,8 

ADDR  MAY  BE  SYMBOLIC  OR  A  CONSTANT 

+  4 

STL 

43 

I INT 

SIADDR, ,16,6 

+  8 

STL 

43 

I  CHAR 

0 

+  12 

STL 

43 

+  16 

TRA 

SEEIF 

NOTK 

TSX 

FN0SYM,4 

ADDR  IS  SYMBOLIC 

+  1 

ARS 

1 

+  2 

STO 

SIADDR 

KHAR 

0 

+  3 

STL 

43 
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SEflF 

Cl.  A 

SIACCR 

f  1 

CAS 

01999 

♦  2 

TRA 

FIXIT 

+  3 

TRA 

ALMST0 

TRA 

ALMST0 

FIXIT 

SLN 

3 

+  1  ■ 

STL 

RETURN 

+  2 

TRA 

ALMST0 

BACKIN 

LDQ 

SIACDR 

+  1 

CLA 

ZERC 

+  2 

DVH 

02000 

+  3 

STO 

SIACCR 

2000  OR  LESS 

+  4 

STQ 

CVRAGE 

NUMBER  OF  2000  NOS 

+  5 

XCA 

+  6 

LRS 

2 

TEST  FOR  8000 

+  7 

LBT 

+  8 

TRA 

NCT8 

+  9 

CLA 

8 1  NO 

IS  8000 

+  10 

CRS 

SIACDR 

4000 

+  1  J 

TRA 

GCAHEC 

NCT8 

LLS 

2 

+  1 

ALS 

4 

+  2 

CRS 

K 

+  3 

TRA 

GCAHEC 

BEGIN 

1.4 

KIPE 

TXL 

*+3,0.0 

SUBROUTINE  LINKAGE 

+  4 

AXT 

7,4 

+  5 

ST2 

K  +  7,4 

'*■  6 

TIX 

*-1,4,1 

RETURN 

V^IPE 

♦  7 

TRA 

WIPE+1 

BEGIN 

1,4 

SET  UP  HOLLERITH  K,0,P 

STCKCP 

TXL 

•+3,0,0 

SUBROUTINE  LINKAGE 

+  4 

LOG 

RITEKY 

+  5 

AXT 

3,4 

CLAZ 

CLA 

ZERC 

+  l 

LGL 

6 

+  2 

STC 

K  +  3,4 

+  3 

TIX 

CLAZ, 4, 1 

RETURN 

STCKCP 

+  4 

TRA 

STCKCP+I 

BEGIN 

1,4 

CKVSAD 

TXL 

*+3,0,0 

SUBROUTINE  LINKAGE 

+  4 

AXT 

3,4 

CONVER  BINARY  SICOM  ADOR  TO  BCD 

+  5 

LOG 

SIACCR 

NXTCNE 

CLA 

ZERC 

♦  ! 

CVH 

OECPAL+3,4 

+  2 

STQ 

A  +  3,4 

+  3 

XCA 

+  4 

TIX 

NXTCNE,4, 1 

+  5 

STQ 

R 

RETURN 

CNVSAC 

+  6 

TRA 

CNVSAC+1 

BEGIN 

1,4 
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i;k  1  cuk 

I  XL 

*  +  3 » 0 1 0 

GMASK 

6, ,31 

+  4 

STL 

22 

OBCC 

K, , 15,  1 

+  8 

STL 

22 

CBCC 

C,,17,  1 

+  12 

STL 

22 

OBCC 

P ,  t  1 8 » 1 

+  16 

STL 

22 

+20 

AXT 

4,4 

CCOLR 

20 

+2  1 

STL 

22 

CBCC 

A+4,4, , 1 

CUTATR 

STL 

22 

+4 

TIX 

0UTATR,4, 1 

CMASK 

0 

+  5 

STL 

22 

RETURN 

CKTCDR 

+  9 

TRA 

OKTCDR+] 

IREDUN 

HPR 

1 

+  1 

TRA 

START 

CREDLN 

HPR 

2 

+  1 

TRA 

START 

CTPEND 

HPR 

3 

+  1 

TRA 

WRLIST 

NOENO 

HPR 

4 

+  1 

TRA 

ENDCRD 

BEGIN 

1,4 

LOCMCH 

TXL 

*+3,0,0 

+  4 

CLA 

ICNTR 

+  5 

ADO 

OCTGND 

+  6 

STO 

TEMP+4 

OOCTAL 

TEMP+4,,2, 

+  7 

STL 

22 

CBCC 

BLANK, ,2, 1 

+  11 

STL 

22 

RETURN 

LOCMCH 

+  15 

TRA 

LCCMCH+1 

BEGIN 

1,4 

LCCSIC 

TXL 

*+3,0,0 

+  4 

CLA 

ICNTR 

+  5 

ARS 

1 

+  6 

ADD 

10THOU 

+  7 

STO 

TEMP+3 

Cl  NT 

TEMP+3,,7, 

+  8 

STL 

22 

OBCC 

BLANK, ,8, 1 

+  12 

STL 

22 

RETURN 

LOCSIC 

+  16 

TRA 

LCCSIC+1 

BEGIN 

1,4 

^^KLIST 

TXL 

*+3, 0,0 

CSCRIB 

CUTAPE,,20 

+  4 

STL 

22 

SUBROUTINE  LINKAGE 

CONVER  LOCATION  COUTER  IN  OUTPUT  REGIO 
OCTAL  10000 


SUBROUTINE  LINKAGE 


DECIMAL  10000 
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+  8 

SWT 

3 

♦  9 

TRA 

OREADY 

OBLANK 

+  10 

STL 

22 

OSCRIB 

PRINTR,,20 

+  12 

STL 

22 

OBLANK 

120««  1 

CBLANK 

STL 

22 

RETURN 

WRLIST 

+  3 

TRA 

WRLIST+1 

CMTCRD 

TSX 

WRLIST, 4  FOUND  A  COMMENT  CARO  ON  2ND  PASS 

+  1 

TRA 

CYCLE 

IINT 

ICNTR,,16 

ORGCRD 

STL 

43 

+4 

CLA 

ICNTR 

+  5 

ALS 

1 

+  6 

STO 

ICNTR 

+  7 

TSX 

L0CMCH,4 

+  8 

TSX 

LCCSIC,4 

+  9 

TSX 

WRLIST, 4 

+  10 

TRA 

CYCLE 

BSSCRD 

TSX 

LCCMCH,4 

+  1 

NZT 

MODE 

+2 

TSX 

LCCSIC,4 

♦  3 

TSX 

WRLIST, 4 

IINT 

NEWTEM,, 16 

+4 

STL 

43 

+  8 

CLA 

NEWTEM 

+9 

NZT 

MODE 

+  10 

ALS 

1 

+  11 

AOO 

ICNTR 

+  12 

STO 

ICNTR 

+  13 

TRA 

CYCLE 

I  CHAR 

SYMBOL, ,8 

EQUCRD 

STL 

43 

+  4 

LXA 

SYMCNT,! 

IBCW 

SYMTAB, 1, 1,1 

+  5 

STL 

43 

I  MASK 

0 

+9 

STL 

43 

IINT 

NEWTEM+1, ,16,6 

+  13 

STL 

43 

+  17 

CLA 

NEWTEM+1 

+  18 

ZET 

MODE 

+  19 

TRA 

FCRMCH 

+20 

ALS 

1 

+21 

STO 

LCCTAB,! 

+22 

ARS 

1 

REVRS 

TXI 

*+l, 1,-1 

+  l 

SXA 

SYMCNT, 1 

+2 

AOO 

10THOU 

+3 

STO 

NEWTEM+2 

OINT 

NEWTEM+2, ,18,5 

+  4 

STL 

22 

57 

CBCC 

BLANK, » 19,1 

+  8 

STL 

22 

I  CHAR 

0 

+  12 

STL 

43 

+  16 

TSX 

WRLIST,4 

+  17 

TRA 

CYCLE 

FCRMCH 

STO 

LCCTAB, 1 

CCCTAL 

LOCTAB, 1,20,4 

+  1 

STL 

22 

+  5 

TXI 

■*+1,  1,~1 

+  6 

SXA 

SVKCNT, 1 

I  CHAR 

0 

+  7 

STL 

43 

+  1  1 

TSX 

WRLIST,4 

+  12 

TRA 

CYCLE 

SVKBCL 

TSX 

FN0SYP,4 

+ 1 

ZET 

MODE 

+  2 

TRA 

FCRPCH 

+  3 

STO 

LCCTAB, 1 

+  i4 

ARS 

1 

+  5 

TRA 

REVRS 

CATCRD 

ZET 

MCDE 

+  1 

TRA 

BNKCRC 

+  2 

SLN 

1 

+  3 

TSX 

EVENUP,4 

+  4 

TSX 

SCANIT,4 

+5 

TSX 

LCCPCH,4 

+  6 

TSX 

LCCSIC,4 

+  7 

TSX 

WRLIST,4 

+  8 

TRA 

REBACK 

EKDCRC 

CLA 

GC2 

+  l 

ADD 

10 THOU 

+  2 

STO 

TEMP 

+  3 

REWB 

7 

01  NT 

TEMP, ,18, 5 

+  4 

STL 

22 

CBCC 

BLANK,, 19,1 

+  8 

STL 

22 

+  12 

TSX 

WRLIST,4 

+  13 

WEFA 

7 

+  14 

TSX 

RITCUT,4 

+  15 

SWT 

6 

+  16 

TRA 

*♦2 

+  17 

TRA 

»  +  2 

+  18 

REWA 

7 

CBCW 

ALLDUN, , 1 ,20 

-H9 

STL 

22 

CSCRIB 

PRINTR, ,20 

+  23 

STL 

22 

+2  7 

WPDA 

+28 

SPRA 

1 

+29 

HTR 

START+1 

BEGIN 

1,4 

BACCCC 

TXL 

*+3,0,0 

WRITE  THIS  DEC  ISCAN  ROUTINE 
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+  4 

STO 

NCCODE 

OREADY 

+  5 

STL 

22 

OBCW 

NOCOOEy  *1*20 

+  7 

STL 

22 

+  11 

TSX 

ERR0R*4 

+  12 

AXT 

0*1 

+  13 

ZET 

MCDE 

+  14 

TRA 

THANX 

+  15 

TRA 

FNDOP 

THIS  ROUTI 

NE  WILL  SET  UP  TWO  REGISTERS 

COMPRISING  A  SICOM  COMMAND 

BEGIN 

1*7 

STOCKO 

TXL 

«+5*0.0 

SUBROUTINE  LINKAGE 

+  8 

CLA 

WHRMAP 

+  9 

ADD 

ICNTR 

+  10 

STA 

STOREV 

EVEN  LOCATION  =  SIADDR 

+  11 

ADD 

ONE 

+  12 

STA 

STOROD 

ODD  LOCATION  =  KOP 

+  13 

CLA 

SIADDR 

STOREV 

STO 

»»0 

+  1 

SLT 

2 

IS  AC 

+2 

TRA 

NOTAC 

NO 

+  3 

CLA 

ABLNK 

YES  OOOOOB 

ALS3 

ALS 

3 

+  1 

ORA 

0 

+2 

ALS 

3 

+  3 

ORA 

P 

STOROD 

STO 

•  »0 

RETURN 

STCCMC 

+  1 

TRA 

STOCMD+1 

NCTAC 

CLA 

RITEKY 

+  1 

TMI 

»+3 

IS  XEQ,SETFWA*SETLWA 

+2 

CLA 

K 

+3 

TRA 

ALS3 

♦  4 

SSP 

♦  5 

ARS 

30 

+  6 

SUB 

0CT12 

+  7 

TRA 

ALS3 

0CT12 

OCT 

12 

BEGIN 

1*7 

FNDSVM 

TXL 

*♦5*0*0 

SUBROUTINE  LINKAGE 

+  8 

TSX 

VARFRM,4 

+  9 

TRA 

*♦2 

SPECIAL  RETURN 

+10 

TRA 

NORMAL 

+  11 

CLA 

MYOWN 

+  12 

ALS 

1 

RETURN 

FNCSYM 

+  13 

TRA 

FNDSYM+1 

NORMAL 

AXT 

0,4 

+  1 

LAC 

SYMCNT* 1 

NUMBER  SYMBOLS  STORED  THUS  FAR 

+  2 

CLA 

AFIELD 

+  3 

CAS 

ACCODE 

CHECK  FOR  AC  =  SIADDR 

+  4 

TRA 

♦+2 

+  5 

TRA 

I  SAC 

59 


LCCKAT 

CAS 

*1 

TRA 

*2 

TRA 

*3 

TXI 

*4 

TIX 

*5 

STO 

CREADY 

*6 

STL 

OBCW 

+  8 

STL 

*12 

TSX 

+  13 

CLA 

*14 

TRA 

I  SAC 

SLN 

*1 

CLA 

RETURN 

*2 

TRA 

FOUND 

CLA 

*1 

STO 

*2 

CLA 

*3 

TXI 

*4 

TNX 

CMPSYM 

CAS 

*1 

TRA 

+  2 

TRA 

*3 

TXI 

*4 

TIX 

FINE 

CLA 

+  1 

ADO 

RETURN 

FCUNDX 

TRA 

STUPID 

STO 

CREADY 

*1 

STL 

OBCW 

+  3 

STL 

+  7 

TSX 

+  8 

TRA 

BEGIN 

ERROR 

TXL 

OSCRIB 

+  4 

STL 

*8 

SWT 

RETURN 

*9 

TRA 

CREADY 

*10 

STL 

OSCRIB 

*12 

STL 

RETURN 

+  16 

TRA 

BEGIN 

VARFRM 

TXL 

I  MASK 

SYMTAe,4 

*+2 

FOUND 

LCOKAT, 1, I 
UNDEF 

22 

UNDEF,,  1,20 
22 

ERROR, 4 
ZERO 
FCUNDX 
2 

ACNUM 
FNDSYM 
FNDSYM+1 
LOCTAB,4 
EQUSYM 
AFIELD 
*+1,4, -I 
FINE, 1, 1 
SYMTA8,4 
*+2 

STUPID 
*+l»4,-l 
CRPSYM, 1 , I 
ECUSYM 
ADDIT 
FNDSYM 
FNDSYM+1 
DOUBLE 

22 

DOUBLE, ,1,20 
22 

ERROR, 4 
FINE 
1,4 

*+3, 0,0 
CUTAPE,,20,  1 
22 
3 

ERROR 
ERROR* 1 

22 

PRINTR,,20 

22 

ERROR 
ERROR* 1 
2,7 

**5,0,0 

,,31 


SYMBOL  IS  UNDEFINED 
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+  8 

STL 

43 

+  12 

AXT 

15,4 

ICOLR 

16 

+  13 

STL 

43 

RAVEL 

STZ 

DATA^15,4 

IBCC 

DATA+15,4,,  1 

+  1 

STL 

43 

♦  5 

TlX 

RAVEL, 4, 1 

IMASK 

0 

COLS  16-30  UNPACKED 

+  6 

STL 

43 

+  10 

STZ 

CCMCCL 

0=C0L  16 

+  11 

STZ 

ADOIT 

+  12 

STZ 

ADDCCL 

+  13 

STZ 

INOEXR 

+  14 

AXT 

15,4 

♦  15 

AXT 

0,1 

+  16 

CLA 

ISBLNK 

LOOK  FOR  BLANK 

LOGl 

CAS 

DATA*15,4 

+  1 

TRA 

*♦2 

♦  2 

TRA 

FNDBNK 

FOUND  BLANK 

+  3 

TXI 

*+1,  1,  1 

+  4 

TIX 

LOGl, 4. 1 

+  5 

AXT 

0,1 

FNDBNK 

SXA 

BNKCOL,  1 

COLUMN  NO-16  OF  BLANK 

+  1 

LXA 

BNKCCL,4 

+  2 

CLA 

BNKCOL 

+  3 

ADD 

WHRDAT 

+  4 

STA 

REFADD 

+  5 

AXT 

0,1 

L0G2 

CLA 

ISPOS 

LOOK  FOR  ADDITIVE  SYMBOL 

+  1 

CAS* 

REFADD 

+2 

TRA 

*♦2 

+3 

TRA 

FNDADD 

+4 

CLA 

ISNEG 

+5 

CAS* 

REFADD 

+  6 

TRA 

•  ♦2 

+  7 

TRA 

FNDADD 

+  8 

TXI 

•♦1,1,1 

+  9 

TIX 

LCG2,4,  1 

♦  10 

AXT 

0,1 

FNDADD 

SXA 

ADDCOL,  1 

COL  NO  1-16)  OF  ADDITIVE  SYMBOL 

+  1 

LXA 

BNKCOL, 4 

♦  2 

AXT 

0,1 

+3 

CLA 

ISCOM 

LOOK  FOR  COMMA 

L0G3 

CAS* 

REFADD 

♦  1 

TRA 

*♦2 

♦  2 

TRA 

FNDCON 

♦  3 

TXI 

*♦1,1,1 

♦  4 

TIX 

LCG3,4,  1 

+  5 

AXT 

0,1 

FNDCOK 

SXA 

CCMCOL,! 

COMMA  IN  THIS  COLUMN 

+  1 

ZET 

CCMCOL 

+2 

TRA 

YSCOKA 

WAS  A  COMMA 

ZETAOD 

ZET 

ADDCOL 

NO  COMMA 
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+  1 

TRA 

YESADD 

IBCW 

AFIELD, , 16t 1 

SYMBOL 

AS 

+  2 

STL 

43 

RETURN 

VARFRM 

NO  ADO 

NO 

+  6 

TRA 

VARFRM+1 

YESADD 

CLA 

SIXX 

+  1 

SUB 

ACDCCL 

INTPL 

TPL 

*+2 

+  1 

CLA 

ZERO 

+  2 

XCA 

+  5 

MPY 

SIXX 

+  4 

XCA 

+  5 

STA 

SHFTR 

+  6 

LXA 

ACDCCL, 1 

+  7 

AXT 

0,2 

+  8 

CLA 

ZERO 

RCTAT 

ALS 

6 

+  1 

ORA 

DATA, 2 

+  2 

TXI 

•  +1,2,‘“1 

+  5 

TIX 

RCTAT, 1,1 

+  4 

LOQ 

BLANK 

SHFTR 

LGL 

•  «0 

+  1 

SLW 

AFIELD 

+  2 

SLT 

2 

+  3 

TRA 

•+2 

+  4 

TRA 

ISTAG 

+  5 

CLA 

ACDCOL 

+  6 

ADD 

CCLDIF 

+  7 

STA 

IFDEC+3 

+  8 

STA 

IFOCT+3 

+  9 

CLA 

CCMCCL 

+  10 

ZET 

CCMCOL 

+  11 

TRA 

*+2 

+  12 

CLA 

BNKCCL 

+  13 

SUB 

ACDCCL 

+  14 

ALS 

18 

+  15 

STD 

IFOEC+3 

+  16 

STD 

IFOCT+3 

+  17 

ZET 

IMODE 

+  18 

TRA 

ACKCCT 

ICHAR 

N0NCCT,,8 

+  19 

STL 

43 

IINT 

ADDIT ,,*♦,** 

IFDEC 

STL 

43 

+4 

ZET 

MCDE 

+  5 

TRA 

MCVEON 

+  6 

CLA 

ADDIT 

+  7 

ALS 

1 

+  8 

STO 

ADDIT 

MCVECN 

NZT 

CCMCCL 

RETURN 

VARFRM 

SYMBOL 

SET 

+  1 

TRA 

VARFRM+1 

+  2 

TRA 

ISTAG 

ICHAR 

N0N0CT,,8 

WAS  AN  ADDITIVE  FIELD 
IT  STANDS  IS  OK 

COMMA 

=  MAYBE  COMMA  BUT  ADDITIVE  FIRST 
ISOLATE  SYMBOL  FROM  +  OR  - 

ERROR 

16-0X6  =  NO  BITS  TO  RIGHT  OF  SYMBOL 
NO  CHARACTERS  IN  SYMBOL 


6  BCD  BLANKS 

SYMBOL  UNDRESSED  STORED  FOR  LOOK  UP 

NOW  GET  ADDITIVE  FIELD 
I  MACROS 


ZERO  =  DEC  MODE 


IS  THERE  A  TAG  FIELD 
IN  AFIELD  *0R-  IN  ADDIT 


62 


ACKCCT 

STL 

43 

I  OCTAL 

ADDIT  f ,**,** 

IFCCT 

STL 

43 

RETURN 

VARFRK 

+  4 

TRA 

VARFRF+1 

ICHAR 

0 

MCNCCT 

STL 

43 

CREAOY 

+4 

STL 

22 

OBCW 

BAOVARtt ] f20 

+  6 

STL 

22 

+  10 

TSX 

ERRCR»4 

+  n 

STZ 

ADDIT 

RETURN 

VARFRM 

+  12 

TRA 

VARFRM+1 

YSCOMA 

ZET 

ADDCOL 

IS  THERE  ADDITIVE  BESIOED 

+  1 

TRA 

YESAOD 

PROCES  TAG  FIELD  LATER 

+  2 

TRA 

HARDl 

FIRST  FIELD  MAY  NUMERIC 

I  STAG 

CLA 

CCMCOL 

+  1 

ADD 

CCLDIF 

+  2 

ADD 

ONE 

+  3 

STA 

PROTAG+3 

IINT 

K  t  »  **  1 1 

PROTAG 

STL 

43 

+4 

CLA 

K 

+  5 

ALS 

30 

+6 

SLW 

INDEXR 

+  7 

SLT 

1 

RETURN 

VARFRM 

+  8 

TRA 

VARFRM+1 

RETURN 

VARFRM, 1 

+  9 

AXT 

1.4 

ICHAR 

0 

THIS  CASE  HAS  NO  ADD  BUT  TAG  +  MAYBE  N 

HARDl 

STL 

43 

ICHAR 

ISALPH, ,8 

+  4 

STL 

43 

+  8 

CLA 

CCMCOL 

+  9 

ALS 

16 

*  i.  0 

STD 

TRYIT+3 

IINT 

MYOWN.f 16, *• 

TRYIT 

STL 

43 

+  4 

SLN 

1 

+  5 

TRA 

ISTAG 

ICHAR 

0 

ISALPH 

STL 

43 

+  4 

SLN 

2 

+  5 

CLA 

CCMCOL 

+  6 

STO 

AODCCL 

+  7 

CLA 

SIXX 

+  8 

SUB 

CCMCOL 

+  9 

TRA 

INTPL 

COMCCL 

P2E 

BNKCCL 

PZE 

AODCCL 

PZE 
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I  SCCK 

BCI 

1 t00000f 

INCEXR 

PZ£ 

SIXX 

DEC 

6 

ADCIT 

PZE 

CCLDIF 

DEC 

16 

NYCWK 

PZE 

BEGIN 

1»7 

SCANIT 

TXL 

*+5,0,0 

SUBROUTINE  LINKAGE 

+  8 

CLA 

WHRMAP 

ASSEMBLE  +  STORE  DEC  CARD  COLS 

+  9 

ADD 

ICNTR 

+  10 

STA 

D890 

+  1  1 

ADO 

ONE 

+  12 

STA 

DS67 

+  13 

ADD 

ONE 

+  14 

STA 

D234 

+  15 

ADD 

ONE 

+  16 

STA 

EXPD1 

IMASK 

,,31 

+  17 

STL 

43 

+21 

AXT 

15,4 

UNPACK  15  COLS  STARTING  COL  16 

ICOLR 

16 

+22 

STL 

43 

UNPACK 

STZ 

DATA+15,4 

I8CC 

CATA+15,4,,  1 

+  1 

STL 

43 

+  5 

TIX 

UNPACK, 4, 1 

IMASK 

0 

+  6 

STL 

43 

+  10 

CLA 

EXP0 

OCT  100 

+  1  1 

STO 

EXPCNT 

+  12 

AXT 

10,4 

+  13 

STZ 

DIGIT+10,4 

+  14 

TIX 

*-1,4,1 

+  15 

STZ 

MANSGN 

+  16 

STZ 

EPART 

+  17 

STZ 

ISTNZ 

+  18 

STZ 

OPTING 

+  19 

AXT 

15,1 

LOCK  AT  15  COLUMNS 

+20 

AXT 

0,2 

COLUMN  COUNTER 

+21 

AXT 

0,4 

DIGIT  STORER 

+22 

STZ 

OPTING 

LCCKC 

CLA 

DATA+15, 1 

LOCK  AT  A  COLUMN 

+  1 

CAS 

ISBLNK 

+  2 

TRA 

*+2 

+  3 

TRA 

GETCUT 

FOUND  A  BLANK 

+  4 

CAS 

TEN 

+  5 

TRA 

GR10 

+  6 

HPR 

ERROR 

+  7 

TNZ 

MARKIT 

GR0  IS  BETWEEN  1  AND  9 

+  8 

ZET 

ISTNZ 

IS  THIS  A  LEADING  0 

+  9 

TRA 

*+2 

NO 

+  10 

TRA 

MCRCLM 

YES  IGNORE  IT 

MARKIT 

NZT 

ISTNZ 

+  1 

TRA 

ISTCNE 
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STCDIG 

STO 

DIGIT, 4 

+  I 

TXI 

»+ 1 ,4,-1 

MORCLM 

TXI 

♦  +  1 , 2 , 1 

+  1 

TIX 

LCOKC,  1,1 

+  2 

TRA 

ILEGAL 

GR10 

CAS 

ISPCS 

+  1 

TRA 

»+2 

+2 

TRA 

YESPCS 

IS  A  +  SIGN 

+  3 

CAS 

ISNEG 

+  4 

TRA 

*+2 

+  5 

TRA 

YESNEG 

-  SING 

+6 

CAS 

ISE 

+  7 

TRA 

*♦2 

+  8 

TRA 

YESE 

E 

+  9 

CAS 

ISDCPT 

+  10 

TRA 

*♦2 

+  n 

TRA 

YESDPT 

+  12 

NZT 

MASKER 

+  13 

TRA 

ILEGAL 

+  14 

SUB 

DELTA 

+  15 

2ET 

ISTNZ 

+  16 

TRA 

STODIG 

+  17 

TRA 

ISTONE 

YESPCS 

STZ 

MANSGN 

+  1 

TRA 

MCRCLM 

YESNEG 

STL 

MANSGN 

+  1 

TRA 

MCRCLM 

YESDPT 

SXA 

OECCLM,2 

+  1 

STL 

DPTIND 

+  2 

TRA 

MCRCLM 

1  STONE 

SXA 

NZC0LM,2 

+  1 

STL 

ISTNZ 

+  2 

TRA 

STODIG 

YESE 

SXA 

ECOLMN,2 

E  FOUND  WILL  TERMINATE  SEARCH 

+  1 

STL 

EPART 

+  2 

LAC 

EC0LMN,4 

ICOLR 

17,4 

+  3 

STL 

43 

ICHAR 

ILEGAL, ,8 

+  6 

STL 

43 

IINT 

EEXP,,,3 

+  10 

STL 

43 

GETOliT 

CLA 

OECCLM 

+  1 

CAS 

NZCOLM 

+  2 

TRA 

OECGR 

DEC  PT  COLUMN  IS  LARGER 

+  3 

HPR 

OH  REALLY 

+  4 

CLA 

NZCCLM 

NON  ZERO  COLUMN  IS  LARGER 

+5 

SUB 

DECCLM 

+6 

SUB 

ONE 

+  7 

SSM 

TESTE 

NZT 

EPART 

WAS  THERE  AN  EPART 

+  1 

TRA 

*+2 

NO 

+  2 

ADO 

EEXP 

YES  ADD  IN 

+  3 

ADO 

EX PONT 

OCT  100 
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+u 

STO 

EXPCNT 

+  5 

TPL 

ASSMBL 

+  6 

CLA 

EXP0 

+  7 

SUB 

EXPCNT 

+e 

STO 

EXPCNT 

+  9 

TRA 

ASSMBL 

CECGR 

CLA 

DECCLM 

+  1 

SUB 

NZCCLM 

+  2 

TRA 

TESTE 

ASSMBL 

CLA 

ZERO 

+  1 

ZET 

MANSGN 

+  2 

CLA 

ONE 

+  3 

ALS 

7 

+  4 

ORA 

EXPCNT 

+  5 

ALS 

4 

+  6 

ORA 

DIGIT 

EXPD1 

STO 

+  l 

CLA 

DIGIT+1 

+  2 

ALS 

4 

+  3 

CRA 

DIGIT+2 

+  4 

ALS 

4 

+  S 

CRA 

DIGIT+3 

D234 

STO 

*«0 

+  1 

CLA 

DIGIT+4 

+  2 

ALS 

4 

+  3 

CRA 

DIGIT+5 

+  4 

ALS 

4 

+  5 

CRA 

DIGIT+6 

D567 

STO 

**0 

+  l 

CLA 

DIGIT+7 

+2 

ALS 

4 

+  3 

CRA 

DIGIT+8 

+  4 

ALS 

4 

+  5 

CRA 

OIGIT+9 

D890 

STO 

**0 

♦  1 

STZ 

MASKER 

RETURN 

SCANIT 

+2 

TRA 

SCANIT+l 

ICHAR 

0 

ILEGAL 

STL 

CREADY 

43 

+4 

STL 

22 

CBCW 

BADDEC, 

+  6 

STL 

22 

•H0 

TSX 

ERROR, 4 

+  ll 

STZ 

MASKER 

RETURN 

SCANIT 

+  12 

TRA 

SCAMT+1 

EVENUP 

CAL 

ICNTR 

+  l 

ANA 

2eiTS 

+  2 

SSM 

+  3 

ADD 

D4 

+  4 

ANA 

28ITS 

+  5 

ADD 

ICNTR 

ASSEMBLE  SIGN  EXP  +  D1 
NEG  MANTISSA 
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+6 

STO 

ICNTR 

+  7 

TRA 

1,4 

2BITS 

PZE 

3 

D4 

PZE 

4 

BEGIN 

1,7 

RITOUT 

TXL 

*+5,0,0 

REWB 

REWB 

8 

*\ 

SDLB 

8 

+  2 

A  XT 

12,4 

+  3 

CLA 

RIMAP+12,4 

+4 

STO 

SIMAP+12,4 

+5 

TIX 

*-2,4, ! 

+  6 

AXT 

1365,1 

+  7 

AXT 

0,2 

CLASIK 

CLA 

SIMAP,2 

+  1 

ALS 

12 

+  2 

CRA 

SIMAP+1,2 

+  3 

ALS 

12 

+  4 

CRA 

SIMAP+2,2 

+  5 

SLW 

OREGIN+1365 

+  6 

TXI 

*+1,2, -3 

+  7 

TIX 

CLASIP,!, 1 

+  8 

WTBB 

8 

+  9 

RCfiB 

SCRIBE 

+  10 

TCOB 

« 

+  Il 

TRCB 

REWB 

+  12 

REWB 

8 

RETURN 

RITOUT 

+  13 

TRA 

RITCUT+1 

0TYPE 

CAL 

RITEKY 

+  1 

ARS 

21 

♦  2 

STO 

FCROUT 

+  3 

ANA 

M7777 

+  4 

STC 

FCRPAP 

+  5 

TSX 

0UTC0C,4 

+  6 

TSX 

LCCPCH,4 

+  7 

TSX 

KAPIT,4 

+  8 

TSX 

WRLIST,4 

+  9 

CLA 

ICNTR 

+  10 

ADO 

ONE 

+  11 

STO 

ICNTR 

I  CHAR 

0 

BNKCRD 

STL 

43 

I  CHAR 

DILLY,,8 

+  4 

STL 

43 

+  8 

NZT 

INOCE 

+  9 

TRA 

CDECK 

I  OCTAL 

TEPP,, 16,4 

+  10 

STL 

43 

+  14 

TRA 

PICKUP 

1 1  NT 

TEPP,, 16,4 

GDECK 

STL 

43 

PICKUP 

CLA 

TEMP 

+  l 

ANA 

M7777 

SUBROUTINE  LINKAGE 


EG  BLS  0100  YYYY 
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+  2 

TRA 

STCFCR 

ICHAR 

0 

CILLV 

STL 

43 

*•4 

TSX 

FNDSYM,4 

+  5 

ANA 

M7777 

+  6 

TRA 

STOFCR 

1TVPE 

CAL 

RITEKY 

+  5 

ARS 

21 

STCFCR 

STO 

FCRCUT 

+  i 

ANA 

M7777  ■ 

+  2 

STO 

FCRVAP 

+  3 

TSX 

OLTCCD54 

+  4 

TSX 

LCCMCH,4 

+  5 

TSX 

MAPIT,4 

+  6 

TSX 

WRLIST,4 

+  7 

TRA 

REBACK 

ICHAR 

0 

2TYPE 

STL 

43 

ICHAR 

SILLY,, 8 

+  4 

STL 

43 

I INT 

TEMP,, 16,6 

+  8 

STL 

43 

CLAM7 

CLA 

M7 

+  1 

ANS 

TEMP 

CALRIT 

CAL 

RITEKY 

+  1 

ARS 

21 

+  2 

GRA 

TEMP 

+  3 

TRA 

STOFCR 

ICHAR 

0 

SILLY 

STL 

43 

+  4 

TSX 

FNDSYMi,4 

+  5 

STO 

TEMP 

+  6 

TRA 

CLAM7 

ICHAR 

0 

3TYPE 

STL 

43 

ICHAR 

NILLY, ,8 

+  4 

STL 

43 

+  8 

KZT 

IMOCE 

+  9 

TRA 

GGOEC 

lOCTAL 

TEMP, , 16,6 

+  10 

STL 

43 

+  14 

TRA 

CLAM77 

1 1  NT 

TEMP, , 16,6 

CGCEC 

STL 

43 

CLAM77 

CLA 

M77 

+  1 

CAS 

TEMP 

+  2 

TRA 

CALRIT 

+  3 

TRA 

CALRIT 

STZTEM 

STZ 

TEMP 

+  1 

TSX 

0CRNG,4 

+  2 

TRA 

CALRIT 

ICHAR 

0 

NILLY 

STL 

43 

+  4 

TSX 

FN0SYM,4 

EG  PTA  0101  NO  SYMBOLIC  FIELD 


EG  STP  015X 


EG  LCN  04XX 


WITHIN  RANGE 
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-i  L 

IiW. 

+  6 

STZ 

+  7 

TRA 

JDO 

STO 

+  1 

CAL 

+  2 

ANA 

+  3 

TZE 

+  4 

SUB 

+  5 

TNZ 

+  6 

CLA 

+  7 

SUB 

TMIS 

TMI 

+  1 

STO 

+  2 

TRA 

•  ISBACK 

CLA 

+  1 

SUB 

+  2 

TRA 

• 

ICHAR 

4TYPE 

STL 

ICHAR 

+  4 

STL 

IINT 

+  8 

STL 

+  12 

CLA 

+  13 

ALS 

+  14 

STO 

+  15 

TRA 

TILLY 

TSX 

+  1 

TNZ 

+  2 

STZ 

+  3 

TRA 

+  4 

ALS 

+  5 

STO 

+  6 

TRA 

5TYPE 

TSX 

+  1 

SUB 

+  2 

TMI 

+  3 

STO 

+  4 

TRA 

ISREV 

SSP 

+  1 

STO 

+  2 

CAL 

+  3 

ANA 

+  4 

ALS 

+  5 

ACL 

+  6 

SLW 

+  7 

TRA 

BEGIN 

CUTCGD 

TXL 

COCTAL 

STL 

RETURN 

+  8 

TRA 

BEGIN 

JCD 

TEMP 

CALRIT 

TEMP 

RITEKY 

TGMASK 

CLAM7? 

ITAG 

ISBACK 

TEMP 

ICNTR 

STZTEM 

TEMP 

CLAM77 

ICNTR 

TEMP 

TMIS 

0 

43 

TILLY, ,8 
43 

TEMP,,  16,  1 
43 

TEMP 

3 

TEMP 

CALRIT 

FN0SYM,4 

*+3 

TEMP 

CALRIT 

3 

TEMP 

CLAM77 

FNDSYM,4 

ICNTR 

ISREV 

TEMP 

CLAM77 

TEMP 

TGMASK 

RITEKY 

12 

RITEKY 

RITEKY 

CLAM77 

1t4 

•+3,0,0 

FOROUT,,20,4 

22 

CUTCCO 

OUTCOC+1 

1,4 


IS  NOT  FWD  OR  BACK 

REF  BACKWARDS 
THIS  REFS  FWD 


EG  SLJ  77X0 


RELATIVE  MODE 
BACKWARD  REFERENCE 


SUBROUTINE  LINKAGE 
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SUBROUTINE  LINKAGE 


MAPIT  TXL  »+3»0,0 

+4  CLA  WHRMAP 

+5  ADD  ICNTR 

+6  STA  *+2 

+7  CLA  FCRKAP 

+8  STO  **0 

RETURN  KAPIT 
+9  TRA  RAPIT+1 

BEGIN  Ith 

OCRNG  TXL  *+3*0,0  SUBROUTINE  LINKAGE 

OREADY 

+4  STL  22 

OBCW  RANGER*, 1,20 

+6  STL  22 

+10  TSX  ERROR, 4 

RETURN  CORNG 
+11  TRA  OCRNG+l 

I  CHAR  GOOF,, 8 
OCTCRD  STL  43 

lOCTAL  TEMP, ,16, 4 
+4  STL  43 

+8  CLA  TEMP 

+9  TRA  STOFOR 

OREADY 

GCCF  STL  22 

OBCW  GOON,, 1,20 

+2  STL  22 

+6  TSX  ERROR, 4 

+7  CLA  ZERO 

+8  TRA  STOFOR 

FCRART  AXT  3,1 

+1  TSX  LCCMCH,4 

+2  TSX  WRLIST,4 

CLABAC  CLA  BACKTO+3,1 

+1  STO  FCRMAP 

+2  TSX  MAPIT,4 

+3  CLA  ICNTR 

+4  ADD  ONE 

+5  STO  ICNTR 

+6  TIX  CLABAC, 1,1 

+7  TRA  CYCLE 

INSTR  EQU  ICNTR 

DETAIL 
DETAIL 

CSUBRA  SSCR,B66l,ENDSQR,DDl 


FORSCR 

TSX 

EVENUP,4 

+  1 

CLA 

SSQR 

+2 

STO 

SYMTAB,  1 

+  3 

CLA 

ICNTR 

+4 

STO 

LCCTAB,  1 

+  5 

TXI 

*+l,l,-l 

+  6 

SXA 

SYMCNT,  1 

ICHAR 

BBB1,,8 

+  7 

STL 

43 
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GDI 


eBBl 


+  8 

TXL 

44,0,12 

+  9 

HTR 

B661 ,0 

+  10 

PZE 

8 

I  INT 

TEMP,,  1,6 

+  ll 

STL 

43 

+  12 

TXL 

44,0,4 

+  13 

STO 

TEMP,0 

+  14 

PZE 

1,,6 

CLA 

ENDSQR 

+  1 

ADO 

INSTR 

+  2 

STO 

INSTR 

+  3 

TRA 

READ2 

IBCW 

SYMTAB,l,l 

1 

STL 

43 

+  1 

TXL 

44,0,2 

+  2 

HTR 

SYMTAB,  1 

+  3 

PZE 

l,,l 

I  CHAR 

ALLBNK,  ,2 

+  4 

STL 

43 

+  5 

TXL 

44,0,12 

+  6 

HTR 

ALLBNK, 0 

+  7 

PZE 

2 

I  CHAR 

ISSYN,,8 

+  8 

STL 

43 

+  9 

TXL 

44,0,12 

+  10 

HTR 

ISSYM,0 

+  1  1 

PZE 

8 

+  12 

CLA 

ICNTR 

+  13 

STO 

LCCTAB,! 

+  14 

TXI 

*+l,l,-l 

+  15 

SXA 

SYMCNT, I 

+  16 

TRA 

001 

FORLCG 

FGREXP 

FORSIN 

FCRATN 


SQRFCR 
+  1 
+2 
+3 
+  4 
♦  5 
+  6 
+  7 
+  8 
+  9 
+  10 


QSUBRB 
TSX 
CLA 
ADO 
ADO 
STA 
LXA 
CLA 
STO 
TIX 
TSX 
TSX 


LIST 

QSUBRA  SL0G«B662»ENDLOG»0O2 

TSX  EVENUPf4 

QSUBRA  SEXPfB6B3,EN0EXP»DO3 

TSX  EVENUP,4 

QSUBRA  SSINf eBB4,ENOSIN»004 

TSX  EVENUP,4 

QSUBRA  SATNyB6B5»EN0ATN,OO5 

TSX  EVENUPy4 

DETAIL 

ENDSQR 
EVENUP,4 
WHRRAP 
ICNTR 
ENDSQR 
•  ♦3 

ENDSQR, 4 
ENDSQR»4 
**0,4 
*-2,4,1 
LCCI«.CH,4 
LCCSIC,4 
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+ll 

TSX 

WRLIST,4 

+  12 

CLA 

ENDSCR 

+  13 

ADD 

INSTR 

+  14 

STO 

INSTR 

+  15 

TRA 

LIST 

CYCLE 

QSUBRB 

ENDLOG 

LOGFCR 

TSX 

EVENUP,4 

CSUBRB 

ENDEXP 

EXPFCR 

TSX 

EVENUP,4 

QSUBRB 

ENDSIN 

SINFCR 

TSX 

EVENUP,4 

CSUBRB 

ENDATN 

ATNFCR 

TSX 

EVENUPtU 

SSGR 

BCI 

1,SQR 

SLCG 

BCI 

1,LCG 

SEXP 

BCI 

1,EXP 

SSIN 

BCI 

1  ,SIN 

SATN 

BCI 

1  ,ATAN 

If^CDE 

PZE 

EQUSYM 

PZE 

DOUBLE 

BCI 

9,  HAS  BEEN  MULTIPLY  DEF INED. , . .THE  VALUE  ASSIGNED 

+  9 

BCI 

9,  TO  THE  SYMBOL  ON  FIRST  ENCOUNTER  WILL  BE  USED. «.****• 

+  18 

BCI 

LIST 

2 «*««««« *•»•»« 

MODE 

PZE 

0=  SICOM  NON  ZERO=  MACHINE  LANGUAGE 

EXTMSK 

BCI 

UMASK 

FASKER 

PZE 

NON  ZERO  FOR  MASK  CARO 

DELTA 

OCT 

52 

SI  COM 

BCI 

1 fSICAP 

GOBACK 

BCI 

1« RETURN  RETURN  TO  MACHINE  LANGUAGE 

160A 

BCI 

l.MLAP 

THREE 

DEC 

3 

FOROUT 

PZE 

FORMAP 

PZE 

F7777 

OCT 

7777 

F7 

OCT 

7 

BADVAR 

BCI 

9, THIS  CARD  HAS  VIOLATED  THE  RULES  FOR  THE  ADDITIVE  SUBF 

+  9 

BCI 

9»IELD.«..  IT  WILL  BE  SET  TO  ZERO..  ***************** 

+  18 

BCI 

2f «««««* 

RANGER 

eci 

9, THE  FOLLOWING  CARD  HAS  AN  OUT  OF  RANGE  CONDITION.  THE 

+  9 

BCI 

9, XX  OF  THE  EEXX  FORMAT  HAS  BEEN  REPLACED  BY  ZERO...**** 

♦  18 

BCI 

2 )***«*••*•*** 

F77 

CCT 

77 

GGCN 

BCI 

9, THE  VARIABLE  FIELD  OF  THE  FOLLOWING  OCT  CARO  IS  IN  ERR 

+  9 

BCI 

9, OR...  ZERO  HAS  BEEN  SUBSTITUTED....  ****************** 

+  18 

BCI 

2 t *********** 

ALLDUN 

BCI 

9, THIS  IS  THE  END  OF  THIS  ASSEMBLY.  REMOVE  BINARY  B8. 

♦  9 

BCI 

9, REMOVE  LISTING  TAPE  A7  (UNLESS  STACKING).  PRESS  START 

+  18 

BCI 

2, FOR  NEXT  JOB 

BACKTO 

OCT 

40 

+  1 

CCT 

2006 

+  2 

OCT 

30 

FINSTR 

BCI 

1,BLS  TYPE  A  TWO  REGISTERS 
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+  l 

SCI 

l.ATE 

■»2 

SCI 

1  ,ATX 

+  3 

BCI 

)»LDM 

+  4 

BCI 

1  ,Lnc 

+  5 

BCI 

IfLCM 

+  6 

BCI 

1  »LCC 

+  7 

BCI 

1  .STM 

+  8 

BCI 

1  .STC 

+  9 

BCI 

l.ADM 

+  !0 

BCI 

1  »AOC 

+  n 

BCI 

1  »SBM 

+  12 

BCI 

1  .SBC 

+  13 

BCI 

l.RAM 

+  14 

BCI 

l.RAC 

+  15 

BCI 

1  .ACM 

+  16 

BCI 

l.ACC 

+  17 

BCI 

l.SRM 

+  18 

BCI 

1  tSRC 

♦  19 

BCI 

1  .LPM 

*20 

BCI 

l.LPC 

+21 

BCI 

l.SCM 

+22 

BCI 

l.SCC 

+23 

BCI 

1  ,JPR 

+24 

BCI 

l.IBI 

+25 

BCI 

l.IBO 

+26 

BCI 

1  .EXC 

BTYPE 

BCI 

l.PTA 

THIS  TYPE  IB)  HAS  NO  VARIABLE  FI 

+  1 

BCI 

l.ETA 

+  2 

BCI 

l.CTA 

+  3 

BCI 

ItLOS 

+  4 

BCI 

l.LCS 

+5 

BCI 

l.STS 

+  6 

BCI 

l.MUT 

+  7 

BCI 

1  »MUH 

+  8 

BCI 

l.AOS 

+  9 

BCI 

i.ses 

♦  10 

BCI 

l.RAS 

+  1  1 

BCI 

If  AOS 

♦  12 

BCI 

l.LSl 

+  13 

BCI 

1.LS2 

+  14 

BCI 

lfLS3 

+  15 

BCI 

1.LS6 

♦  16 

BCI 

IfRSl 

♦  17 

BCI 

1«RS2 

♦  18 

BCI 

IfSRS 

+  19 

BCI 

l.LPS 

♦20 

BCI 

IfSCS 

♦21 

BCI 

IfCBC 

♦22 

BCI 

IfCIL 

♦23 

BCI 

If  INA 

+24 

BCI 

If  OTA 

♦25 

BCI 

1  fERR 

+26 

BCI 

IfHLT 

♦27 

BCI 

1  fHPR 

73 


TYPE  C  FILL  IN  LO  ORDER  OCTAL  DIGIT 


+2  8 

BCI 

l,STP 

+29 

fiCI 

1  ,STE 

+  30 

BCI 

1  ,SRJ 

+3  3 

BCI 

1  ,SIC 

+  32 

BCI 

1  ,IRJ 

+  33 

BCI 

1  ,SDC 

+  34 

BCI 

1  ,DRJ 

+3  5 

BCI 

1  fSID 

+  36 

BCI 

1  ,ACJ 

+37 

BCI 

1  ,SBU 

+  38 

BCI 

1  ,NCP 

+39 

BCI 

1,SLS 

+40 

BCI 

1  aoN 

+41 

BCI 

1  ,LDD 

+42 

BCI 

1  ,LDI 

+43 

BCI 

1  ,LDF 

+44 

BCI 

1  ,LD8 

+45 

BCI 

1  ,LCN 

+46 

BCI 

1  »LCD 

+4  7 

BCI 

1,LCI 

+48 

BCI 

1  ,LCF 

+49 

BCI 

1  ,LC8 

+50 

BCI 

I.STD 

+51 

BCI 

1  ,STI 

+52 

BCI 

1,STF 

+53 

BCI 

1  ,STB 

+54 

BCI 

IsHWI 

+  55 

BCI 

1  ,AON 

+  56 

BCI 

1  »ADD 

+57 

BCI 

1  «ADI 

+58 

BCI 

1  ,ADF 

+59 

BCI 

1  tACB 

+60 

BCI 

1  ,SBN 

+61 

BCI 

1  ,SBD 

+62 

BCI 

1  ,SBI 

+63 

BCI 

1  ,SBF 

+64 

BCI 

1  ,SBB 

+65 

BCI 

1  »RAD 

+66 

BCI 

1  ,RAI 

+67 

BCI 

1  ,RAF 

+68 

BCI 

IfRAB 

+69 

BCI 

If  AGO 

+  70 

BCI 

ItAGI 

+71 

BCI 

l.ACF 

+72 

BCI 

1  »ACB 

+  73 

BCI 

1  tSRD 

+74 

BCI 

1  »SR1 

+  75 

BCI 

1  ,SRF 

+  76 

BCI 

1»SRB 

+  77 

BCI 

1  sLPN 

+  78 

BCI 

1  ,LPD 

+  79 

BCI 

1  ,LPI 

+80 

BCI 

ULPF 

+81 

BCI 

1  ,LP6 

TYPE  D  FILL  IN  TWO  LO  ORDER  OCTAL  DIGI 
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+  82 

BCI 

1,SCN 

+  83 

eci 

1  ,SCD 

+84 

BCI 

I.SCI 

+85 

BCI 

1,SCF 

+86 

BCI 

1,SCB 

+  87 

BCI 

1  ,ZJF 

+88 

BCI 

1  ,NZF 

+89 

BCI 

1,PJF 

+90 

BCI 

1,l\iJF 

+9) 

BCI 

1  ,ZJ6 

+  92 

BCI 

1  »NZB 

+93 

BCI 

l,PJB 

+94 

BCI 

1  tNJB 

+95 

BCI 

1,  JPI 

+96 

BCI 

l.JFI 

+97 

BCI 

1,INP 

+98 

BCI 

1,CUT 

+99 

BCI 

1  ,OTN 

+  100 

BCI 

1»EXF 

+  101 

BCI 

IfSJS 

+  102 

BCI 

1,SLJ 

+  103 

BCI 

1 ,  ACR 

+  104 

BCI 

1  »ACR 

+  105 

BCI 

1,LCR 

+  106 

BCI 

1  »LOR 

+  107 

BCI 

1,LPR 

+  108 

BCI 

1  ,LSR 

♦  109 

BCI 

ItNJR 

+  110 

BCI 

1  fNZR 

+  11  1 

BCI 

1,PJR 

+  112 

BCI 

1  »RAR 

♦  113 

BCI 

IfSBR 

+  114 

BCI 

1  fSCR 

+  115 

BCI 

IfSRR 

+  116 

BCI 

1»STR 

+  117 

BCI 

l,ZJR 

+  118 

BCI 

1,LSB 

+  119 

BCI 

1,LSD 

+  120 

BCI 

l.LSF 

+  121 

BCI 

1,LSI 

+  122 

BCI 

IfLSN 

LSTINS 

PZE 

VFO 

015/ 100,21/0 

KCCOE 

VFD 

015/105,21/0 

+  1 

VFD 

015/106,21/0 

+  2 

VFD 

015/2100,21/0 

+  3 

VFD 

015/2200,21/0 

+  4 

VFO 

015/2500,21/0 

+  5 
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VFD  015/2600,21/0 

+  6 

VFD  015/4100,21/0 

+  7 

VFD  015/4200,21/0 

+  8 

VFD  015/3100,21/0 

♦  9 

VFD  015/3200,21/0 

+  10 

VFD  015/3500,21/0 

+  ll 

VFD  015/3600,21/0 

+  12 

VFD  015/5100,21/0 

+  13 

VFD  015/5200,21/0 

+  14 

VFD  015/5500,21/0 

+  15 

VFD  015/5600,21/0 

+  16 

VFD  015/4500,21/0 

+  17 

VFD  015/4600,21/0 

+  18 

VFD  015/1100,21/0 

+  19 

VFD  015/1200,21/0 

+20 

VFD  015/1500,21/0 

+21 

VFD  015/1600,21/0 

+22 

VFD  015/7100,21/0 

+23 

VFD  015/7200,21/0 

+24 

VFD  015/7300,21/0 

+25 

VFD  015/7500,21/0 

+26 

VFD  015/101,21/1 

+27 

VFD  015/107,21/1 

+28 

VFD  015/130,21/1 

+29 

VFD  015/2300,21/1 

+30 

VFD  015/2700,21/1 

+31 

VFD  015/4300,21/1 

+32 
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+  26 

+34 

+35 

+36 

+37 

+38 

+39 

+40 

+41 

+42 

+43 

+44 

+45 

+46 

+47 

+48 

+49 

+50 

+51 

+52 

+53 

+54 

+55 

+56 

+57 

♦58 

+59 


VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 


015/112,21/1 

015/113,21/1 

015/3300,21/1 

015/3700,21/1 

015/5300,21/1 

015/5700,21/1 

015/102,21/1 

015/103,21/1 

015/110,21/1 

015/111,21/1 

015/114,21/1 

015/115,21/1 

015/4700,21/1 

015/1300,21/1 

015/1700,21/1 

015/104,21/1 

015/120,21/1 

015/7600,21/1 

015/7677,21/1 

015/, 21/1 

015/7700,21/1 

015/7700,21/1 

015/150,21/2 

015/160,21/2 

015/10,21/2 

015/20,21/2 

015/30,21/2 
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♦  60 

♦61 
+62 
♦63 
♦6Jt 
+  65 
♦  66 

♦  67 

♦  68 
+69 
+  70 

♦  71 

♦  72 

♦  73 

♦  74 

♦  75 

♦  76 

♦  77 

♦  78 

♦  79 
♦80 
+81 
+82 

♦  83 

♦  84 

♦  85 
+86 


VFD 

VFD 

VFO 

VFD 

VFD 

VFD 

VFD 

VFO 

VFD 

VFD 

VFO 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFO 

VFD 

VFD 

VFD 

VFO 

VFD 

VFD 

VFD 

VFD 

VFD 


015/40,21/2 

015/50,21/2 

015/60,21/2 

015/70,21/2 

015/  140,21/2 

015/, 21/2 

015/7700,21/2 

015/400,21/3 

015/2000,21/3 

015/2100,21/3 

021/220001,15/3 

021/230002,15/3 

015/500,21/3 

015/2400,21/3 

015/2500,21/3 

021/260001,15/3 

021/270002,15/3 

015/4000,21/3 

015/4100,21/3 

021/420001,15/3 

021/430002,15/3 

015/7600,21/3 

015/600,21/3 

015/3000,21/3 

015/3100,21/3 

021/320001,15/3 

021/330002,15/3 
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♦87 
♦  88 
♦89 

♦  90 

♦  91 
♦92 

♦  93 
♦94 
♦95 

♦  96 
♦97 
♦98 

♦  99 
♦  100 
♦  101 
♦  102 

♦  103 

♦  104 

♦  105 

♦  106 

♦  107 

♦  108 

♦  109 

♦  110 
♦  1  1  1 
♦  112 
♦  113 


VFO 

VFO 

VFD 

VFD 

VFD 

VFO 

VFD 

VFD 

VFD 

VFO 

VFD 

VFD 

VFD 

VFD 

VFD 

VFO 

VFD 

VFD 

VFO 

VFO 

VFD 

VFD 

VFD 

VFO 

VFD 

VFD 

VFD 


015/700,21/3 

015/3400,21/3 

015/3500.21/3 

021/360001,15/3 

021/370002,15/3 

015/5000,21/3 

015/5100,21/3 

021/520001,15/3 

021/530002,15/3 

015/5400,21/3 

015/5500,21/3 

021/560001,15/3 

021/570002,15/3 

015/4400,21/3 

015/4500,21/3 

021/460001,15/3 

021/470002,15/3 

015/200,21/3 

015/1000,21/3 

015/1100,21/3 

021/120001,15/3 

021/130002,15/3 

015/300,21/3 

015/1400,21/3 

015/1500,21/3 

021/160001,15/3 

021/170002,15/3 
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+  114 
+  115 
+  116 
+  117 
+  118 
+  119 
+  120 
+  121 
+  122 
+  123 
+  124 
+  125 
+  126 
+  127 
+  128 
*129 
+  130 
+  131 
+  132 

♦  133 
+  134 
+  135 
+  136 
+  137 
+  138 

♦  139 
+  140 


VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 


021/600001,15/3 

021/610001,15/3 

021/620001,15/3 

021/630001,15/3 

021/640002,15/3 

021/650002,15/3 

021/660002,15/3 

021/670002,15/3 

015/7000,21/3 

021/710001,15/3 

021/720001 , 15/3 

021/730001,15/3 

015/7400,21/3 

015/7500,21/3 

015/7700,21/3 

015/7700,21/4 

021/320001,15/5 

021/560001,15/5 

021/260001,15/5 

021/220001,15/5 

021/120001 , 15/5 

021/160001,15/5 

021/630004,15/5 

021/610004,15/5 

021/620004,15/5 

021/520001,15/5 

021/360001 , 15/5 
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VFD 

O21/16000U  15/5 

+  14  1 

VFD 

021/460001,15/5 

+  142 

VFD 

021/420001 , 15/5 

+  143 

VFD 

C21/610003,15/5 

+  144 

VFD 

021/  170002, 15/3 

+  145 

VFD 

021/140000,15/3 

+  146 

VFD 

021/ 160001 , 15/3 

+  14? 

VFD 

C2l/i50000,15/3 

+  148 

VFD 

021/30000,  15/3 

+  149 

VFD 

015/1,21/1 

LSTKEV 

SCRXXX 

CCT 

10,0,6,0,27,74,47,77 

+  8 

CCT 

52,30,53,23,54,30,45,77 

+  16 

CCT 

42,23,43,30,2,401,41,35 

+24 

CCT 

5,75,2,64,7, 75,4000,6025 

+  32 

CCT 

32,33,2,40 1,32,24,31, 30 

+40 

CCT 

22,74,37,25,7,0,  1  1,0 

+  48 

CCT 

106,0,40,2024,6116,2023,6021, 114 

+  56 

CCT 

740,4221,2023,201,4217,2200, 100,4023 

+64 

CCT 

2006,70,423,5002,2200,4374,70,423 

+72 

CCT 

5002,651 1,0,0,40,2303,5023,2304 

+80 

CCT 

6520,401,5002,6523,0,0,4000,2004 

+  88 

CCT 

1060, 1003,4450,2006, 1506,4501, 1 106,2021 

+  96 

CCT 

3407, 1562, 1231,6022,2510, 1464,43,2022 

+  104 

CCT 

3140,1 167,542,2023 

ENCSGK 

P2E 

«-SCRXXX 

LCGXXX 

CCT 

10,0,6,0,74,74,37,30 

+  8 

CCT 

40,77,41,31,36,24,35,77 

+  16 

CCT 

4000,6025,37,77,40,25,41,30 

+24 

CCT 

34,25,41,30,32,25,41,30 

+  32 

CCT 

30,25,43,30,26,25,41,30 

+40 

CCT 

24,25,41,30,22,25,41,30 

+48 

CCT 

20,25,41,30, 12,25,5,31 

+  i>6 

CCT 

40,30,7,0, 11,0,106,0 

+  64 

CCT 

1 ,0,0,2005,3140, 11 67, 542, 2003 

+  72 

CCT 

511, 163,2606,6004, 1440,2525, 1444,2006 

+80 

CCT 

2620,120, 1501,2002,4123,2065,3131,2001 

+88 

CCT 

4170,4471,1111,5761, 1601,204,4022, 1770 

+  96 

CCT 

3505,4520,2447, 1767,4041,3422,3210, 1771 

+  104 

CCT 

4631,3026, 1 100,2001,406,605,3467,2001 

+  112 

CCT 

2102, 1226,4225,2002,3071,421 1,3205,2010 

+  120 

CCT 

0,0,0,2021,60,2021,6003,2024 

+  128 

CCT 

6004,2200,4374,70,4312,4312,2023,3600 

+  136 

CCT 

100,4077,6034,6206,2200,6020,4323,2477 

+  144 

CCT 

6105,2200,2020,4330,2077,3200,3546,4077 
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+  152 

OCT 

2177,4077,277,4076,2077,  nil  277,6013 

+  160 

OCT 

620,5346,2076, 1 11,103,4353,2336,4023 

+  168 

OCT 

2006,70,2076,5360,6506,0 

+  174 

OCT 

0, 0,0,0 

ENOLCG 

PZE 

♦“LCGXXX 

EXPXXX 

OCT 

10,0,6,0,66,77,100,701 

+  8 

OCT 

45,62,177,601,41,63,61,20 

+  16 

OCT 

62,27,55,77,56,20,53,31 

+24 

OCT 

62,25,35,77,4000,6025,55,77 

+  32 

OCT 

16,401, 12,601,52,23,6,601 

+40 

OCT 

50,23,2,601,24,31,23,23 

+48 

OCT 

4000,6030, 1,601,4000,6025,4000,6025 

+56 

OCT 

32,26,21,74,32,22,6,62 

+64 

OCT 

1,101,25,24,7,0,11,0 

+  72 

OCT 

106,0,21,22,4,75,0,101 

+80 

OCT 

6,75,3,74,42,74,0,0 

+  88 

OCT 

2200,4376,70, 101,40,2023,6013,3704 

+96 

OCT 

6005,2021, 112,3020,6102,2021, 103,103 

+  104 

OCT 

5207,2006,70,0,2124,30,442,2121 

+  112 

OCT 

0,0,400,2024,0,0,7400,2057 

+  120 

OCT 

0,0,0,2024,3462,2142,3526,2005 

ENDEXP 

PZE 

»-EXPXXX 

SINXXX 

OCT 

132,1001,550,401,6,0, 5,64 

+  8 

OCT 

6,0,101,33,6,0,101,25 

+  16 

OCT 

10,0,105,77,100,27, 103,33 

+24 

OCT 

2,62,1,601,42,60,4,501 

+  32 

OCT 

76,77,1,701,41,60,13,63 

+40 

CCT 

1,1001,71,77,32,60,7,62 

+48 

OCT 

1,601,34,60,4,62, 1,601 

+56 

OCT 

4000,6021,61,77,60,22,4000,6025 

+64 

CCT 

60,77,27,25,30,30,55,25 

+  72 

CCT 

30,30,53,25,30,30,51,25 

+80 

OCT 

30,30,47,25,30,30,45,25 

+  88 

CCT 

30,30,43,25,30,30,37,25 

+96 

OCT 

7,0,11,0,106,0,1,101 

+  104 

CCT 

4,75,1,201,6,75,0, 1760 

+  112 

OCT 

420,65,3210,5566,4442,562,3222, 1625 

+  120 

OCT 

1065,4103,2630,5663,4110,2021,3004,  1721 

+  128 

CCT 

465,3524,3201,5744,3044,1142,4551, 1767 

+  136 

OCT 

4565,3100,2131,6006, 1447,3626,2560,2021 

+  144 

CCT 

2061,251 1,2621 ,2001,7760,7777,7777,6237 

+  152 

OCT 

0,0,0, 1760,0,0,0, 1760 

+  160 

OCT 

0,0,0,1760 

ENDSIN 

PZE 

•-SINXXX 

ATANXX 

OCT 

10,0,6,0,43,74,1,301 

+  8 

OCT 

62,77,55,31,1 1 ,63,61,77 

+  16 

OCT 

56,22,51,25,1,601,55,23 

+24 

CCT 

52,77,47,22,2,64,0, 101 

+32 

OCT 

72,77,45,22,4000,6025,45,77 

+40 

CCT 

46,30,47,23,50,30,41,30 

+48 

CCT 

50,23,51,30,36,30,51,23 

+  56 

OCT 

52,30,31,25,54,30,51,33 

+64 

OCT 

20,74,7,0,11,0,106,0 

+  72 

CCT 

51,33,40,2024,4223,400,4024,2023 
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+  80 

OCT 

3600, 101,6307,2313,4326,2314,4327,2006 

+  88 

OCT 

70,5402,400,4334,400,4337,6607,0 

+  96 

CCT 

40,2302,4024,6614,3044,465,502,2004 

+  304 

OCT 

4027,4620,4446,2003,421,421,421,2001 

+  112 

CCT 

4401,2547, 1064,1761,2600,3531, 1470,2021 

+  120 

CCT 

1571,4071,2405,6001,2044, 1220,3430,2022 

+  128 

CCT 

3511,1425,4450,6023,2470,1050,2006,2025 

+  136 

CCT 

140,4120,423,2023,2544,440,23,2002 

+  144 

CCT 

1447,3626,2560,2021,3174,52,3326,52 

ENCATN 

PZE 

+-ATANXX 

CREGIN 

BSS 

1400, C 

SCRIBE 

I  CCD 

CREGIN,, 1365 

RETURN 

SCANIT 

+  1 

TRA 

SCANIT+1 

UNDEF 

BCI 

9,  IS  AN  UNDEFINED  SYMBOL.  IT  WILL 

BE  EQUATED  TO 

+  9 

BCI 

3,  ZERO. 

+  12 

BCI 

Q  ^  •««**«»«•«*««•••»««•*••»•««*«»»»• 

NEWTEK 

BSS 

5,H 

NCCOCE 

BCI 

9,  IS  AN  ILLEGAL  OPCODE.  A  NOP  HAS 

BEEN  USED. 

+  9 

BCI 

3, 

+  12 

BCI 

8,  «««»»•««»«*•«««»*•»•**»»**«••»«»• 

XXX 

BCI 

1  ,XXXXXX 

D19 

DEC 

19 

RITECP 

BCI 

1  f 

RITEKY 

PZE 

0 

ACCOCE 

BCI 

l,( 

AFIELD 

BCI 

1, 

DATA 

BSS 

15, C 

DIGIT 

BSS 

10, C 

KANSGN 

PZE 

EXPONT 

PZE 

EXP0 

CCT 

100 

EXPSGN 

PZE 

ISPOS 

BCI 

1 , 00000  + 

ISNEG 

BCI 

1,00000- 

ISE 

BCI 

1,00000E 

ISBLNK 

BCI 

1 , 00000 

1STNZ 

PZE 

ZERO=  FIRST  NON  ZERO 

COLUMN  NOT  MET 

MANSET 

PZE 

ZERO  =  MANTISSA  SIGN 

NOT  SET 

EPART 

PZE 

ZERO  =  NO  E  PART 

DECCLK 

PZE 

N2C0LK 

PZE 

TEN 

DEC 

10 

ECCLKN 

PZE 

I SDCPT 

BCI 

1  ,00000. 

DPTIND 

PZE 

ZERO  =  NO  DEC  PT  FOUND 

C17 

DEC 

17 

EEXP 

DEC 

0  E  PART  OF  EXPONENT 

BADOEC 

BCI 

9,  THE  FOLLOWING  DEC  CARD  VIOLATES  THE  RULES  FOR  DATA  IN 

+  9 

BCI 

9, PUT...  A  ZERO  HAS  BEEN  STORED. 

+  18 

BCI 

2, 

KCHLCC 

PZE 

0 

NAKE 

BCI 

9,  THIS  IS  A  7090  TRANSFORMATION  OF  A  SICOM 

PROGRAM  WRIT 

+  9 

BCI 

9, TEN  FCR  THE  160-A  COMPUTER  BY  SOMEONE  WHO 

CHOOSES  TO 
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+  18 

BCI 

2, BE  UNKNOWN. 

HEADI 

BSS 

20,  C 

hEAD2 

BCI 

9,  MLOC  SILOC  K  OP  ADCR  SYMBOL  OPCODE 

+  9 

BCI 

9,L0  COMMENTARY 

PAGE 

BCI 

2  , 

NANER 

BCI 

1  ,NAME 

PAGENO 

PZE 

CASE1 

CLA 

22 

+  1 

SUB 

ONE 

+  2 

STA 

SWTCN+1 

GHEAD 

CASE1 j , 1,55,  1 

+  i 

STL 

CREADY 

22 

+  8 

STL 

22 

CBCW 

HEADI, ,  1,20 

+  10 

STL 

22 

OSCRIB 

CUT APE, ,20, 1 

+  14 

STL 

CREAOY 

22 

+  18 

STL 

22 

+20 

CLA 

PAGENO 

+21 

ADD 

ONE 

+22 

STD 

PAGENC 

CBCW 

HEAD2,, 1,20 

+23 

STL 

22 

CINT 

PAGENC, ,109,2 

+2  7 

STL 

22 

CSCRIB 

CUTAPE, ,20, 1 

+  31 

STL 

CREADY 

22 

+35 

STL 

22 

CBLANK 

120,, 1 

+37 

STL 

22 

CSCRIB 

CUTAPE, ,20, 1 

+40 

STL 

22 

SKTON 

SWT 

3 

+  1 

TRA 

*•0 

+  2 

WPDA 

+3 

SPRA 

CREADY 

1 

+  4 

STL 

22 

CBCW 

HEADI,, 1,20 

+  6 

STL 

22 

OSCRIB 

PRINTR, ,20 

+  10 

STL 

CREADY 

22 

+  14 

STL 

22 

CBCW 

HEAD2,, 1,20 

+  16 

STL 

22 

CINT 

PAGENC,, 109,2 

+20 

STL 

22 

CSCRIB 

PRINTR, ,20 

+24 

STL 

CREADY 

22 

VARIABLE  FIE 
PAGE 
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+28  STL  22 

CBLANK  120,,  1 
+i0  STL  22 

OSCRIB  PRINTR,,20 


+33 

STL 

+37 

TRA* 

SICLCC 

DEC 

TGMASK 

PZE 

1TAG 

PZE 

C1999 

DEC 

02000 

DEC 

SIADDR 

CEC 

K 

PZE 

C 

PZE 

P 

PZE 

A 

PZE 

01 

PZE 

02 

PZE 

R 

PZE 

ZERO 

CEC 

OECMAL 

DEC 

OCTGNO 

OCT 

BLANK 

BCI 

ATE 

DEC 

CVRAGE 

PZE 

8INC 

OCT 

NINE 

DEC 

AO 

CEC 

ACNUM 

DEC 

ACLIST 

BCI 

KOP 

PZE 

RETURN 

PZE 

ABLNK 

BCI 

CARD 

OCT 

PRINTR 

OCT 

INLNIT 

PZE 

OUTAPE 

DEC 

INTAPE 

DEC 

MEDTAP 

DEC 

EQU 

BCI 

10THOU 

DEC 

CNCFF 

PZE 

INPUT 

BSS 

OUTPUT 

BSS 

WORK 

BSS 

TEMP 

BSS 

STAR 

BCI 

ORIGIN 

BCI 

DECDAT 

BCI 

END 

BCI 

CODE 

PZE 

ICNTR 

PZE 

TWO 

PZE 

DYNAMO 

PZE 

22 

SV«TCN+1 

0 

,7 
,  1 

1999 

2000 
0 


0 

1000,100, 10 

1 0000 

1, 

12 

4000 

9 

4096 

1 ,$00000 


1,00000 

1321 

1361 

647 

648 
1159 

1,ECU 
1 0000 

56, H 
56 ,  H 
14, H 
5,H 

1 , *00000 
1  ,ORG 
1,OEC 
l,ENO 


NORMAL  SICOM  COMMAND  =  7  CHARACTERS 


CARO  READER 
PRINTER 
CARD  OR  TAPE 

B7  FOR  COPY  CARD  INPUT 

ZERO  =  ON  LINE  CARO  INPUT 
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L  i\  i; 

iV£ 

1 

SYKCNT 

PZE 

VFD 

012/12,24/0 

LEADER 

ENABLE 

OCT 

2000 

CCTAL 

BCI 

1,0CT 

NUMBER 

PZE 

SIMAP 

BSS 

4096,0 

KHRMAP 

HTR 

SIMAP 

WHRDAT 

HTR 

DATA 

REFADD 

PZE 

0,4 

RIFAP 

DEC 

18 

READ 

IN  PROGRAM 

+  1 

OCT 

0 

+  2 

DEC 

21 

READ 

TAE  0 

+  5 

OCT 

100 

+  4 

DEC 

4 

+  5 

OCT 

64 

G02 

DEC 

0 

+  1 

OCT 

64 

+  2 

DEC 

19 

+  3 

DEC 

0 

♦  4 

DEC 

L 

+5 

OCT 

64 

BSS 

BCI 

1  ,BSS 

OPCODE 

BCI 

1  ,SIB 

+  1 

BCI 

1,SI0 

+2 

BCI 

1,SIL 

+  3 

BCI 

1,0IB 

+4 

BCI 

1  ,IIB 

+  5 

BCI 

1,SJB 

+  6 

BCI 

1  ,SJD 

+  7 

BCI 

1,SJL 

+  8 

BCI 

1,0JB 

+  9 

BCI 

1,IJB 

+  10 

BCI 

1  ,CADM 

+  1  1 

BCI 

1,CLS 

+  12 

BCI 

l.CLA 

+  13 

BCI 

1,IDVP 

+  14 

BCI 

i,Dyp 

+  15 

BCI 

1,MPY 

+  16 

BCI 

1,EXCH 

+  17 

BCI 

1,£XTR 

+  18 

BCI 

1,A00 

+  19 

BCI 

1  ,SU6 

+20 

BCI 

1,ACM 

+21 

BCI 

1, ISUB 

+22 

BCI 

1  ,RAO 

+23 

BCI 

1,CAS 

+24 

BCI 

1,CFLTB 

+25 

BCI 

l,OFLCR 

+26 

BCI 

l.CFXTB 

+2  7 

BCI 

1  ,OFXCR 

+28 

BCI 

1,0F0RM 

+29 

BCI 

1,0CRTB 
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+30 

BCI 

+  31 

6CI 

+  32 

BCI 

+33 

BCI 

+  34 

BCI 

+35 

BCI 

+36 

BCI 

+37 

BCI 

+38 

BCI 

+39 

BCI 

+40 

BCI 

+4  1 

BCI 

+42 

BCI 

+43 

eci 

+44 

BCI 

+45 

BCI 

+46 

BCI 

+47 

BCI 

+48 

BCI 

+49 

BCI 

+50 

BCI 

+51 

BCI 

+52 

BCI 

+53 

BCI 

+54 

BCI 

+55 

BCI 

+  56 

BCI 

+57 

BCI 

+58 

BCI 

+59 

BCI 

+60 

BCI 

+61 

BCI 

♦62 

BCI 

+63 

BCI 

+64 

BCI 

+65 

BCI 

+66 

BCI 

+67 

BCI 

+68 

BCI 

+69 

BCI 

+70 

BCI 

+  71 

BCI 

+  72 

BCI 

+73 

BCI 

+74 

BCI 

+75 

BCI 

+76 

BCI 

+  77 

BCI 

+78 

BCI 

+  79 

BCI 

+80 

BCI 

+  81 

BCI 

+82 

BCI 

+83 

BCI 

1 ,CTBNC 

ItOCKINO 

UMRFILE 

ItSRFILE 

1,GRPIN 

l.SNGIN 

1 fICCTAL 

ItOALPHA 

l.LCANR 

l.CMPANR 

ItMRGANR 

IvEXTANR 

1  »TZE 

1,TNZ 

1  ,TPL 

1,TKI 

1,TSM4 

l,TSM5 

1,TSM6 

1 ,TNR7 

1,TSR 

l.TSJl 

1,TSJ2 

1,TSJ3 

ItCALL 

1,TBR 

l,STOANR 

1  ,STO 

l.NCP 

l.STOPl 

l,ST0P2 

I, HALTS 

1,HALT4 

IfHPRIN 

1»REL 

IfABS 

ItFAST 

1, TRACE 

1 tZEROIR 

1,IFLEX 

IfOFLEX 

l.ITYPE 

1 ,OTYPE 

ItOPRINT 

l•SELBCO 

ItSELBlN 

ItBSR 

If  REM 

IfOTAPE 

IfITAPE 

IfBLCPY 

IfBLCLR 

IfOCCTAL 

IfOSPEC 


+bk 

BCI 

UISPEC 

+85 

BCI 

l,R2E 

+  86 

BCI 

l.RNZ 

+  87 

BCI 

1  ,RPL 

+  88 

BCI 

1,RPI 

+  89 

BCI 

1,RS«4 

+90 

BCI 

1 ,RSM5 

+91 

BCI 

1 ,RSM6 

+92 

BCI 

1,RNR7 

+93 

BCI 

1,RSR 

+  94 

BCI 

1 ,RSJ1 

+95 

BCI 

1 ,RSJ2 

+  96 

BCI 

1 »RSJ3 

+  97 

BCI 

1,OLOC 

+98 

BCI 

1 ,PUSTCP 

+99 

BCI 

1 vCLAC 

+  100 

BCI 

l.CLSC 

+  101 

BCI 

l.IOVPC 

+  102 

BCI 

1 ,DVPC 

+  103 

BCI 

It ADOC 

+  104 

BCI 

ItSUBC 

+  105 

BCI 

1, ISUBC 

+  106 

BCI 

1. SHIFT 

+  107 

BCI 

ItXEQ 

+  108 

BCI 

ItSETFWA 

+  109 

BCI 

ItSETLWA 

+  110 

BCI 

1 tMPYC 

+  11  1 

BCI 

1 tPXAIB 

+  112 

BCI 

1 tPXAID 

+  113 

BCI 

ItPXAU 

+  114 

BCI 

1 tPXAJB 

+  115 

BCI 

IfPXAJD 

+  116 

BCI 

1 tPXAJL 

+  117 

BCI 

ItPAXIB 

+  118 

BCI 

1  tPAXIC 

+  119 

BCI 

1 , PAXIL 

+  120 

BCI 

1  tPAXJB 

+  121 

BCI 

ItPAXJO 

+  122 

BCI 

1 tPAXJL 

ENDOP 

PZE 

CPKEY 

BCI 

1*002000 

THIS  IS  SIB  1ST  OF  TYPE  1  INSTRUCTIONS 

SID 

BCI 

1*003000 

SIL 

BCI 

1  *  004000 

DIB 

BCI 

1*005000 

IIB 

BCI 

1 *006000 

SJB 

BCI 

1*012000 

SJD 

BCI 

1*013000 

SJL 

BCI 

1*014000 

CJB 

BCI 

1*015000 

IJB 

BCI 

1,016000 

CADM 

BCI 

1,020000 

CLS 

BCI 

1*021000 

CLA 

BCI 

1*022000 

I  .VP 

BCI 

1*023000 
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CVP 

BCI 

1 ,024000 

ypY 

BCI 

1,025000 

EXCH 

BCI 

1,026000 

EXTR 

BCI 

1,027000 

ACC 

BCI 

1,030000 

SUB 

BCI 

1,031000 

ADM. 

BCI 

1 ,032000 

ISUB 

BCI 

1 ,033000 

RAC 

BCI 

1,034000 

CAS 

BCI 

1,035000 

CFLTB 

BCI 

1,036000 

GFLCR 

BCI 

1 ,037000 

CFXTB 

BCI 

1,040000 

OFXCR 

BCI 

1,041000 

OFORM 

BCI 

1 ,042000 

CCRTB 

BCI 

1,043000 

CTBNC 

BCI 

1,044000 

CCKND 

BCI 

1,045000 

VvFNMT 

BCI 

1 ,046000 

SFNMT 

BCI 

1,047000 

GRPIN 

BCI 

1,050000 

SNGIN 

BCI 

1,051000 

RCCTT 

BCI 

1 ,052000 

ALNUC 

BCI 

1,053000 

CLAANR 

BCI 

1,054000 

CMPANR 

BCI 

1,055000 

MRGANR 

BCI 

1,056000 

EXTANR 

BCI 

1,057000 

TIE 

BCI 

1,060000 

TNZ 

BCI 

1,061000 

TPL 

BCI 

1 ,062000 

TMI 

BCI 

1,063000 

TSM4 

BCI 

1,064000 

TSM5 

BCI 

1,065000 

TSM6 

BCI 

1 ,066000 

TSM7 

BCI 

1,067000 

TSR 

BCI 

1 ,070000 

TSKl 

BCI 

1,071000 

TSK2 

BCI 

1 ,072000 

TSW3 

BCI 

1 ,073000 

TML 

BCI 

1 ,074000 

TBR 

BCI 

1 ,075000 

STCANR 

BCI 

1,076000 

STO 

BCI 

1 ,077000 

END  OF 

TYPE  0  INSTRUCTIONS 

NOP 

BCI 

1 ,000001 

TYPE  1 

INSTR  OP  CODE  =DR 

HLTSWl 

BCI 

1,001001 

HLTSW2 

BCI 

1 ,002001 

HALTS 

BCI 

1 ,003001 

HALT4 

BCI 

1,004001 

HLTGIN 

BCI 

1 ,005001 

SELREL 

BCI 

1,006001 

oELABS 

BCI 

1,007001 

SELNTR 

BCI 

1 ,008001 

RESTR 

BCI 

1,009001 
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CLI« 

BCI 

\  ,010001 

RDFLVi 

BCI 

1,01 1001 

BCI 

1,012001 

RDTPW 

BCI 

1,013001 

ivRTPW 

BCI 

1,014001 

VsRPRN 

BCI 

1 ,016001 

SELTTP 

BCI 

1 ,017001 

TYPE  2  INSTR 

SELPTD 

BCI 

1,018002 

esR 

BCI 

1,019004 

REW 

BCI 

1,019001 

WRNT2 

BCI 

1,020003 

RD^<T2 

BCI 

1,021003 

BLCPY 

BCI 

1,024003 

BLCtR 

BCI 

1,025003 

POT 

BCI 

1  ,027003 

PST 

BCI 

1,028003 

RDST 

BCI 

1,029001 

RZERC 

BCI 

1,060001 

RNZERC 

BCI 

1,061001 

RPCS 

BCI 

1,062001 

RNEG 

BCI 

1,063001 

RPK4 

BCI 

1,064001 

RPK5 

BCI 

1,065001 

RK:K6 

BCI 

1,066001 

RMK? 

BCI 

1,067001 

RSR 

BCI 

1 ,070001 

RSWl 

BCI 

1,071001 

RSW2 

BCI 

1,072001 

RSV»3 

BCI 

1,073001 

CLCC 

BCI 

1,075001 

PbSTCP 

BCI 

1,079001 

TYPE  6 

CLAC 

BCI 

1,101006 

CISC 

BCI 

1,201006 

IDVPC 

BCI 

1,301006 

CVPC 

BCI 

1,401006 

ADDC 

BCI 

1,601006 

SUBC 

BCI 

1,701006 

ISUBC 

BCI 

1,801006 

SHFTAC 

BCI 

1 ,901006 

+  1 

BCI 

1,X01006 

SETTRC 

BCI 

1,Y01006 

STPTRC 

BCI 

1 ,Z01006 

MPYC 

BCI 

1,501006 

PXIBA 

BCI 

1,022005 

PXIDA 

BCI 

1,032005 

PXILA 

BCI 

1,042005 

PXJBA 

BCI 

1,122005 

PXJDA 

BCI 

1,132005 

PXJLA 

BCI 

1,142005 

ATXIB 

BCI 

1,023005 

ATX  ID 

BCI 

1,033005 

mTXIL 

BCI 

1,043005 

ATXJB 

BCI 

1,123005 

ATXJD 

BCI 

1,133005 
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O')  , 


/iTXJL 

EKDKEY 

Yf'IAB 

LCCTAB 


CL^P 

+  4 

+  8 
+  12 


8CI 

1,143025 

PZE 

1 

BSS 

1000,F 

BSS 

1000, C 

CRC 

32256 

CORE 

START, - 

STL 

2169 

CORE 

43,43 

STL 

2169 

CORE 

22,22 

STL 

2169 

TRA 

1  10 

END 

START 

12/20/62 


ENOCRD 

0014 

LOCSIC 

0012 

RITOUT 

0023 

ITYPE 

0024 

ENDEXP 

0038 

LCCTAB 

0047 

RNZERO 

•  0046 

2BITS 

0023 

ENDKEY 

0047 

LOGFOR 

0028 

SCANIT 

0020 

2TYPE 

0024 

ENOLCG 

0036 

LOGXXX 

0037 

SCRIBE 

0039 

3TYPE 

0024 

ENDSIN 

0038 

LOCKAT 

0016 

SELABS 

•  0045 

4TYPE 

0025 

ENDSCR 

0037 

LSTINS 

0031 

SELMTD 

•  0046 

5TYPE 

0025 

EGtCRD 

0013 

LSTKEY 

0037 

SELNTR 

•  0045 

BIND 

0041 

EQUSVK 

0028 

MANSET 

•0039 

SELREL 

•  0045 

A 

0041 

EVENEP 

0022 

RANSGN 

0039 

SELTTP 

•  0046 

ABLNK 

0041 

EXPFOR 

0028 

RARKIT 

0020 

SETOFF 

0001 

ACNUM 

0041 

EXPONT 

0039 

MASKER 

0028 

SETTRC 

*0046 

AO 

0041 

EXPSGN 

*0039 

MCHLOC 

•0039 

SHFTAC 

*0046 

ADO 

•  0045 

EXPXXX 

0038 

MECTAP 

0041 

SIADOR 

0041 

AODC 

•  0046 

EXTANR 

•  0045 

MINSTR 

0028 

SICLOC 

*004  1 

AODIT 

0020 

EXTMSK 

0028 

MCRCLM 

0021 

SINFOR 

0026 

ADM 

•  0045 

FNDADD 

0017 

MOVEON 

0018 

SINXXX 

0038 

AFORK 

0007 

FNDBNK 

0017 

MRGANR 

•  0045 

SQRFOR 

0027 

AGN 

0003 

FNOCCM 

0017 

NEVlTEM 

0039 

SORXXX 

0037 

ALNUO 

*0045 

FNDSVM 

0015 

NCCODE 

0039 

STABLE 

0007 

ALS3 

0015 

FORART 

0026 

NONOCT 

0019 

STOANR 

*0045 

ASIF0 

0008 

FORATN 

0027 

NORMAL 

0015 

STOCMO 

0015 

ATE 

0041 

FOREXP 

0027 

NUMBER 

0042 

STODIG 

0021 

ATXIB 

•  0046 

FORLOG 

0027 

NXTQNE 

0011 

STOFOR 

0024 

ATXIO 

*0046 

FORMAP 

0028 

NZCOLM 

0039 

STOKOP 

001  1 

ATXIL 

*0046 

FORMCH 

0014 

CELANK 

0013 

STOREV 

0015 

ATXJB 

•  0046 

FOROUT 

0028 

CCTCRD 

0026 

STOROD 

0015 

ATXJD 

•  0046 
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